From: Kim F. Storm Date: Sat, 7 Sep 2002 22:50:58 +0000 (+0000) Subject: (read-quoted-char): Apply listify-key-sequence to vector X-Git-Tag: ttn-vms-21-2-B4~13328 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=177aef40f08c8fef9dd8fb9005a4f5745e519713;p=emacs.git (read-quoted-char): Apply listify-key-sequence to vector returned by this-single-command-raw-keys before appending it to unread-command-event. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9f8cb476b30..bc3d7dad03d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-09-08 Kim F. Storm + + * subr.el (read-quoted-char): Apply listify-key-sequence to vector + returned by this-single-command-raw-keys before appending it to + unread-command-event. + 2002-09-07 Colin Walters * progmodes/compile.el (compile-internal): Add optional argument diff --git a/lisp/subr.el b/lisp/subr.el index 76304358601..4d1d1b350ec 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1092,7 +1092,7 @@ any other non-digit terminates the character code and is then used as input.")) (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 @@ any other non-digit terminates the character code and is then used as input.")) ((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)))