diff options
| author | Stefan Monnier | 2019-12-11 20:24:44 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2019-12-11 20:24:44 -0500 |
| commit | 7a498af10a9b19ab3d88663acd4bb5724eeef6c8 (patch) | |
| tree | 88897f1cb8cc5cdef47291c8b7c976495819d284 | |
| parent | a642b4d35c86b871a97a4d5f150ed17303603413 (diff) | |
| download | emacs-7a498af10a9b19ab3d88663acd4bb5724eeef6c8.tar.gz emacs-7a498af10a9b19ab3d88663acd4bb5724eeef6c8.zip | |
* lisp/emacs-lisp/debug.el (debug-on-entry): Allow undefined functions
Allow placing debug-on-entry on a function not-yet-defined, which
is convenient when the problem you're investigating happens while
the relevant files are loaded.
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index f711971c181..3df0ba4a659 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -668,7 +668,7 @@ Redefining FUNCTION also cancels it." | |||
| 668 | #'(lambda (symbol) | 668 | #'(lambda (symbol) |
| 669 | (and (fboundp symbol) | 669 | (and (fboundp symbol) |
| 670 | (not (special-form-p symbol)))) | 670 | (not (special-form-p symbol)))) |
| 671 | t nil nil (symbol-name fn))) | 671 | 'confirm nil nil (symbol-name fn))) |
| 672 | (list (if (equal val "") fn (intern val))))) | 672 | (list (if (equal val "") fn (intern val))))) |
| 673 | (advice-add function :before #'debug--implement-debug-on-entry | 673 | (advice-add function :before #'debug--implement-debug-on-entry |
| 674 | '((depth . -100))) | 674 | '((depth . -100))) |