diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-08-10 16:07:43 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-08-10 16:07:43 +0000 |
| commit | 65b13f4bc0c6821e03a3d3be0f2ba4ad70001976 (patch) | |
| tree | 2797f2f43f90269122b7f0b6184183292ccc4af1 | |
| parent | f80c9382efe996857f34ddd36ddfc7513dc08eb0 (diff) | |
| download | emacs-65b13f4bc0c6821e03a3d3be0f2ba4ad70001976.tar.gz | |
Minor fix to last change.
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index e7f5a736ded..5107ee60274 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -2575,7 +2575,7 @@ MSG is printed after `::::} '." (overlay-arrow-string overlay-arrow-string) (cursor-in-echo-area nil) (default-cursor-in-non-selected-windows t) - (unread-command-events nil) + (unread-command-events unread-command-events) ;; any others?? ) (if (not (buffer-name edebug-buffer)) @@ -2664,6 +2664,7 @@ MSG is printed after `::::} '." (t (message ""))) + (setq unread-command-events nil) (if (eq 'after edebug-arg-mode) (progn ;; Display result of previous evaluation. |