Comment.

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index f89c0d7aaa6c5dc81355b77d74150ced246e56c5..f7d11eda14ba17b84ca36c2aac4b9066fcbe42df 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -540,6 +540,8 @@ the minibuffer."
          (let ((edebug-all-forms edebugging)
                (edebug-all-defs (eq edebug-all-defs (not edebug-it))))
            (edebug-read-top-level-form))))
+    ;; This should be consistent with `eval-defun-1', but not the
+    ;; same, since that gets a macroexpended form.
     (cond ((and (eq (car form) 'defvar)
                (cdr-safe (cdr-safe form)))
           ;; Force variable to be bound.