Mercurial > emacs

changeset 47305:3feceef12d3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-quoted-char): Apply listify-key-sequence to vector returned by this-single-command-raw-keys before appending it to unread-command-event.
author Kim F. Storm <storm@cua.dk>
date Sat, 07 Sep 2002 22:50:44 +0000
parents 2ae3c0d6525a
children 859b95c98a17
files lisp/subr.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Sat Sep 07 21:31:03 2002 +0000
+++ b/lisp/subr.el	Sat Sep 07 22:50:44 2002 +0000
@@ -1092,7 +1092,7 @@
 	(if inhibit-quit (setq quit-flag nil)))
       (cond ((null char))
 	    ((not (integerp char))
-	     (setq unread-command-events (this-single-command-raw-keys)
+	     (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys))
 		   done t))
 	    ((/= (logand char ?\M-\^@) 0)
 	     ;; Turn a meta-character into a character with the 0200 bit set.
@@ -1109,7 +1109,7 @@
 	    ((and (not first) (eq char ?\C-m))
 	     (setq done t))
 	    ((not first)
-	     (setq unread-command-events (this-single-command-raw-keys)
+	     (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys))
 		   done t))
 	    (t (setq code char
 		     done t)))