; Do not overwrite preexisting contents of unread-command-events

[gnu-emacs] / lisp / ebuff-menu.el

diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index 337ea10f26d606748ee84f677ccc23f7fc0a7c2c..93418063d10edb3e80b7018bce60e0cb793ff011 100644 (file)
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -133,7 +133,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry.
            (setq select
                  (catch 'electric-buffer-menu-select
                    (message "<<< Type SPC or RET to bury the buffer list >>>")
-                   (setq unread-command-events (list (read-event)))
+                   (push (read-event) unread-command-events)
                    (let ((start-point (point))
                          (first (progn (goto-char (point-min))
                                        (unless Buffer-menu-use-header-line
@@ -210,7 +210,9 @@ See the documentation of `electric-buffer-list' for details."
 
 (defun Electric-buffer-menu-exit ()
   (interactive)
-  (setq unread-command-events (listify-key-sequence (this-command-keys)))
+  (setq unread-command-events
+        (nconc (listify-key-sequence (this-command-keys))
+               unread-command-events))
   ;; for robustness
   (condition-case ()
       (throw 'electric-buffer-menu-select nil)