(read-quoted-char): Apply listify-key-sequence to vector

returned by this-single-command-raw-keys before appending it to
unread-command-event.

2 files changed, 8 insertions, 2 deletions

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  <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 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)))