(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 9f8cb476b30ffe51969f6eda5964c24de664139c..bc3d7dad03da6d92417514a0c04796c25bf114d0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-08  Kim F. Storm  <storm@cua.dk>
+
+       * 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  <walters@debian.org>
 
        * progmodes/compile.el (compile-internal): Add optional argument

diff --git a/lisp/subr.el b/lisp/subr.el
index 7630435860100bd093afa939490d909677aba65d..4d1d1b350ec4254e4225bce6fac86ce1979c5f0a 100644 (file)
--- 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)))