aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2019-12-11 20:24:44 -0500
committerStefan Monnier2019-12-11 20:24:44 -0500
commit7a498af10a9b19ab3d88663acd4bb5724eeef6c8 (patch)
tree88897f1cb8cc5cdef47291c8b7c976495819d284
parenta642b4d35c86b871a97a4d5f150ed17303603413 (diff)
downloademacs-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.el2
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)))