From 177aef40f08c8fef9dd8fb9005a4f5745e519713 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 7 Sep 2002 22:50:58 +0000 Subject: [PATCH] (read-quoted-char): Apply listify-key-sequence to vector returned by this-single-command-raw-keys before appending it to unread-command-event. --- lisp/ChangeLog | 6 ++++++ lisp/subr.el | 4 ++-- 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 + + * 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))) -- 2.39.2