diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-11-15 09:00:49 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-11-15 09:00:53 +0100 |
| commit | ecc21845eaac931dc12ac5057296fbf742336a02 (patch) | |
| tree | d14095abaca0eb543e499f3bacaeaaacc0415494 /lisp/emacs-lisp | |
| parent | 06ac04a8ec4fd5ff3f51a174192511a75d104822 (diff) | |
| download | emacs-ecc21845eaac931dc12ac5057296fbf742336a02.tar.gz emacs-ecc21845eaac931dc12ac5057296fbf742336a02.tar.bz2 emacs-ecc21845eaac931dc12ac5057296fbf742336a02.zip | |
Make edebug-remove-instrumentation remove macro instrumentation
* lisp/emacs-lisp/edebug.el (edebug-remove-instrumentation):
Macros can also have edebug instrumentation, so remove that as
well (bug#38195).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 6b55d7cff03..5d527044108 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -4580,8 +4580,9 @@ instrumentation for, defaulting to all functions." (let ((functions nil)) (mapatoms (lambda (symbol) - (when (and (functionp symbol) - (get symbol 'edebug)) + (when (and (get symbol 'edebug) + (or (functionp symbol) + (macrop symbol))) (let ((unwrapped (edebug-unwrap* (symbol-function symbol)))) (unless (equal unwrapped (symbol-function symbol)) (push symbol functions))))) |