From: Kenichi Handa <handa@m17n.org>
Date: Wed, 5 Mar 2008 04:29:53 +0000 (+0000)
Subject: (read-quoted-char): Resolve modifers of the character event.
X-Git-Tag: emacs-pretest-23.0.90~7451
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4c3c5887bc84709a269cfe67bebdfc66831af96;p=emacs.git

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

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