From e4c3c5887bc84709a269cfe67bebdfc66831af96 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 5 Mar 2008 04:29:53 +0000 Subject: [PATCH] (read-quoted-char): Resolve modifers of the character event. --- lisp/subr.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 679aeed876f..79de788c365 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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)))) -- 2.39.2