Mercurial > emacs
changeset 92498:eb2dddded6bc
(read-quoted-char): Resolve modifers of the character event.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 05 Mar 2008 04:29:53 +0000 |
| parents | f45795db28f6 |
| children | 88d1a8b0752e |
| files | lisp/subr.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Wed Mar 05 04:28:59 2008 +0000 +++ b/lisp/subr.el Wed Mar 05 04:29:53 2008 +0000 @@ -1693,7 +1693,10 @@ ;; 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))))