# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1204691393 0
# Node ID eb2dddded6bc23e06b11e6eb2922cebb71814ccb
# Parent  f45795db28f6453a02efb9d53ae05ae4186aefc0
(read-quoted-char): Resolve modifers of the character event.

diff -r f45795db28f6 -r eb2dddded6bc lisp/subr.el
--- 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))))