aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2000-10-06 18:37:50 +0000
committerDave Love2000-10-06 18:37:50 +0000
commite75667a0bd5b42924632b0eb0ad60596a396a08e (patch)
tree4aaa478dd295b1981368157342b41287f7e75d6e
parenta469e8baa83d554f8b370f24f9440b74cc858212 (diff)
downloademacs-e75667a0bd5b42924632b0eb0ad60596a396a08e.tar.gz
emacs-e75667a0bd5b42924632b0eb0ad60596a396a08e.zip
Comment.
-rw-r--r--lisp/emacs-lisp/edebug.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index f89c0d7aaa6..f7d11eda14b 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -540,6 +540,8 @@ the minibuffer."
540 (let ((edebug-all-forms edebugging) 540 (let ((edebug-all-forms edebugging)
541 (edebug-all-defs (eq edebug-all-defs (not edebug-it)))) 541 (edebug-all-defs (eq edebug-all-defs (not edebug-it))))
542 (edebug-read-top-level-form)))) 542 (edebug-read-top-level-form))))
543 ;; This should be consistent with `eval-defun-1', but not the
544 ;; same, since that gets a macroexpended form.
543 (cond ((and (eq (car form) 'defvar) 545 (cond ((and (eq (car form) 'defvar)
544 (cdr-safe (cdr-safe form))) 546 (cdr-safe (cdr-safe form)))
545 ;; Force variable to be bound. 547 ;; Force variable to be bound.