diff options
| author | David Kastrup <dak@gnu.org> | 2015-07-25 18:54:42 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2015-08-04 14:34:15 +0200 |
| commit | 5022e27dac4c13651941e425dbec5b3a2cecdae4 (patch) | |
| tree | 696d748c8abc3aea1bfd5305a8e71dc985053496 /lisp/ebuff-menu.el | |
| parent | 227e996946d4629fa8f6d665564a37668290c87f (diff) | |
| download | emacs-5022e27dac4c13651941e425dbec5b3a2cecdae4.tar.gz | |
; Do not overwrite preexisting contents of unread-command-events
Diffstat (limited to 'lisp/ebuff-menu.el')
| -rw-r--r-- | lisp/ebuff-menu.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el index 337ea10f26d..93418063d10 100644 --- 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) |