# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1155226063 0
# Node ID 494f2c627b5b4f3ff76ba3a12b770380b16c0a4d
# Parent  adbd3421e276da1cd2726ae8f7dc9edcd0172ed8
Minor fix to last change.

diff -r adbd3421e276 -r 494f2c627b5b lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Thu Aug 10 15:30:56 2006 +0000
+++ b/lisp/emacs-lisp/edebug.el	Thu Aug 10 16:07:43 2006 +0000
@@ -2575,7 +2575,7 @@
 	      (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 @@
 
 	   (t (message "")))
 
+	  (setq unread-command-events nil)
 	  (if (eq 'after edebug-arg-mode)
 	      (progn
 		;; Display result of previous evaluation.