We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
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])
%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 ...) (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
The text was updated successfully, but these errors were encountered:
Reported, as Explain-pause-mode told so. However, everything works fine meanwhile. Maybe close this? Thanks BTW providing this nice tool.
Sorry, something went wrong.
No branches or pull requests
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])
The text was updated successfully, but these errors were encountered: