Mercurial > emacs

changeset 2026:3514a9bf50c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(electric-buffer-list): Handle any kind of event. (Electric-buffer-menu-exit): Handle any key sequence.
author Richard M. Stallman <rms@gnu.org>
date Sat, 06 Mar 1993 06:05:12 +0000
parents 3f02dc3e10a8
children fe4784e44fb1
files lisp/ebuff-menu.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ebuff-menu.el	Sat Mar 06 06:03:19 1993 +0000
+++ b/lisp/ebuff-menu.el	Sat Mar 06 06:05:12 1993 +0000
@@ -63,7 +63,8 @@
 	    (setq select
 		  (catch 'electric-buffer-menu-select
 		    (message "<<< Press Space to bury the buffer list >>>")
-		    (if (= (setq unread-command-events (list (read-char))) ?\ )
+		    (if (eq (setq unread-command-events (list (read-event)))
+			    ?\ )
 			(progn (setq unread-command-events nil)
 			       (throw 'electric-buffer-menu-select nil)))
 		    (let ((first (progn (goto-char (point-min))
@@ -196,7 +197,7 @@
  
 (defun Electric-buffer-menu-exit ()
   (interactive)
-  (setq unread-command-events (list last-input-char))
+  (setq unread-command-events (listify-key-sequence (this-command-keys)))
   ;; for robustness
   (condition-case ()
       (throw 'electric-buffer-menu-select nil)