diff options
| author | Dave Love | 2000-10-06 18:37:50 +0000 |
|---|---|---|
| committer | Dave Love | 2000-10-06 18:37:50 +0000 |
| commit | e75667a0bd5b42924632b0eb0ad60596a396a08e (patch) | |
| tree | 4aaa478dd295b1981368157342b41287f7e75d6e | |
| parent | a469e8baa83d554f8b370f24f9440b74cc858212 (diff) | |
| download | emacs-e75667a0bd5b42924632b0eb0ad60596a396a08e.tar.gz emacs-e75667a0bd5b42924632b0eb0ad60596a396a08e.zip | |
Comment.
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 2 |
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. |