mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
returned by this-single-command-raw-keys before appending it to
unread-command-event.
This commit is contained in:
Kim F. Storm 2002-09-07 22:50:58 +00:00
parent 125c108147
commit 177aef40f0
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

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

4
lisp/subr.el
View File

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