changeset 2029:c06b592ca52b

(emerge-show-file-name): Handle any kind of event.
author Richard M. Stallman <rms@gnu.org>
date Sat, 06 Mar 1993 06:10:05 +0000
parents 87f2d4cbbaf4
children ffe1f05d5727
files lisp/emerge.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emerge.el	Sat Mar 06 06:08:40 1993 +0000
+++ b/lisp/emerge.el	Sat Mar 06 06:10:05 1993 +0000
@@ -2908,8 +2908,8 @@
 	    (while (and (not (pos-visible-in-window-p))
 			(> (1- (frame-height)) (window-height)))
 	      (enlarge-window 1))
-	    (let ((c (read-char)))
-	      (if (/= c 32)
+	    (let ((c (read-event)))
+	      (if (not (eq c 32))
 		  (setq unread-command-events (list c)))))))))
 
 ;; Improved auto-save file names.