not top level in wrap-native
andreas-roehler opened this issue · 1 comments
explain-pause version: 0.1
emacs version: 28.0.91
not top level in wrap-native for #
current
#s(explain-pause-command-record root-emacs nil nil 2144777 (25109 59239 566201 964000) nil nil nil nil 0)
Backtrace:
explain-pause-report-measuring-bug("not top level in wrap-native for #<subr read-event..." "current" #s(explain-pause-command-record :command root-emacs :native nil :parent nil :executing-time 2144777 :entry-snap (25109 59239 566201 964000) :too-slow nil :is-profiled nil :under-profile nil :profile nil :depth 0))
explain-pause--wrap-native(# nil t 2)
apply(explain-pause--wrap-native # (nil t 2))
read-event(nil t 2)
sit-for(2)
(progn (if with-temp-message (progn (setq current-message (current-message)) (message "%s" with-temp-message))) (sit-for (if (numberp suggest-key-bindings) suggest-key-bindings 2)))
(unwind-protect (progn (if with-temp-message (progn (setq current-message (current-message)) (message "%s" with-temp-message))) (sit-for (if (numberp suggest-key-bindings) suggest-key-bindings 2))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))
(let ((with-temp-message (format-message "You can run the command %s' with %s" function (if (stringp binding) (concat "M-x " binding " RET") (key-description binding)))) (current-message)) (unwind-protect (progn (if with-temp-message (progn (setq current-message (current-message)) (message "%s" with-temp-message))) (sit-for (if (numberp suggest-key-bindings) suggest-key-bindings 2))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))) (progn (let ((with-temp-message (format-message "You can run the command %s' with %s" function (if (stringp binding) (concat "M-x " binding " RET") (key-description binding)))) (current-message)) (unwind-protect (progn (if with-temp-message (progn (setq current-message (current-message)) (message "%s" with-temp-message))) (sit-for (if (numberp suggest-key-bindings) suggest-key-bindings 2))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))))
(if binding (progn (let ((with-temp-message (format-message "You can run the command %s' with %s" function (if (stringp binding) (concat "M-x " binding " RET") (key-description binding)))) (current-message)) (unwind-protect (progn (if with-temp-message (progn (setq current-message ...) (message "%s" with-temp-message))) (sit-for (if (numberp suggest-key-bindings) suggest-key-bindings 2))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))))) (progn (if find-shorter (progn (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let (... val) (setq val ...) (cond ... ... ...)))) (quit (setq quit-flag t) (eval '(ignore nil)))))) (if binding (progn (let ((with-temp-message (format-message "You can run the command %s' with %s" function (if ... ... ...))) (current-message)) (unwind-protect (progn (if with-temp-message (progn ... ...)) (sit-for (if ... suggest-key-bindings 2))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))))))
(if (eq function real-last-command) (progn (if find-shorter (progn (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let ... ... ...))) (quit (setq quit-flag t) (eval '...))))) (if binding (progn (let ((with-temp-message (format-message "You can run the command `%s' with %s" function ...)) (current-message)) (unwind-protect (progn (if with-temp-message ...) (sit-for ...)) (and with-temp-message (if current-message ... ...))))))))
(closure ((find-shorter . t) (delay-before-suggest . 0) (binding . "ex-top") (function . explain-pause-top) (typed . "explain-pause-top") (command-name . "explain-pause-top") (prefixarg) t) nil (if (eq function real-last-command) (progn (if find-shorter (progn (condition-case nil (let (...) (catch ... ...)) (quit (setq quit-flag t) (eval ...))))) (if binding (progn (let ((with-temp-message ...) (current-message)) (unwind-protect (progn ... ...) (and with-temp-message ...))))))))()
apply((closure ((find-shorter . t) (delay-before-suggest . 0) (binding . "ex-top") (function . explain-pause-top) (typed . "explain-pause-top") (command-name . "explain-pause-top") (prefixarg) t) nil (if (eq function real-last-command) (progn (if find-shorter (progn (condition-case nil (let ... ...) (quit ... ...)))) (if binding (progn (let (... ...) (unwind-protect ... ...))))))) nil)
timer-event-handler([t 25109 59229 790357 nil (closure ((find-shorter . t) (delay-before-suggest . 0) (binding . "ex-top") (function . explain-pause-top) (typed . "explain-pause-top") (command-name . "explain-pause-top") (prefixarg) t) nil (if (eq function real-last-command) (progn (if find-shorter (progn (condition-case nil ... ...))) (if binding (progn (let ... ...)))))) nil nil 104000 nil])
Reported, as Explain-pause-mode told so. However, everything works fine meanwhile. Maybe close this? Thanks BTW providing this nice tool.