From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 15 Nov 2019 08:00:49 +0000 (+0100)
Subject: Make edebug-remove-instrumentation remove macro instrumentation
X-Git-Tag: emacs-27.0.90~615
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecc21845eaac931dc12ac5057296fbf742336a02;p=emacs.git

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).
---

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)))))