mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(read-quoted-char): Resolve modifers of the character event.

Browse source
This commit is contained in:
Kenichi Handa 2008-03-05 04:29:53 +00:00
parent fb26c2afce
commit e4c3c5887b
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/subr.el
View file

@ -1693,7 +1693,10 @@ any other non-digit terminates the character code and is then used as input."))
;; We could try and use read-key-sequence instead, but then C-q ESC
;; or C-q C-x might not return immediately since ESC or C-x might be
;; bound to some prefix in function-key-map or key-translation-map.
(setq translated char)
(setq translated
(if (integerp char)
(char-resolve-modifers char)
char))
(let ((translation (lookup-key local-function-key-map (vector char))))
(if (arrayp translation)
(setq translated (aref translation 0))))