[Emacs-diffs] /srv/bzr/emacs/trunk r100355: * subr.el (read-quoted-char): Resolve modifiers after key remapping.

[Stefan Monnier]

------------------------------------------------------------
revno: 100355
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2010-05-18 16:31:44 -0400
message:
  * subr.el (read-quoted-char): Resolve modifiers after key remapping.
modified:
  lisp/ChangeLog
  lisp/subr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-18 19:34:26 +0000
+++ b/lisp/ChangeLog    2010-05-18 20:31:44 +0000
@@ -1,3 +1,8 @@
+2010-05-18  Stefan Monnier  <address@hidden>
+
+       * subr.el (read-quoted-char): Resolve modifiers after key
+       remapping (bug#6212).
+
 2010-05-18  Michael Albinus  <address@hidden>
 
        Add visualization code for secrets.

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2010-05-15 13:23:48 +0000
+++ b/lisp/subr.el      2010-05-18 20:31:44 +0000
@@ -1868,16 +1868,14 @@
        (if inhibit-quit (setq quit-flag nil)))
       ;; Translate TAB key into control-I ASCII character, and so on.
       ;; Note: `read-char' does it using the `ascii-character' property.
-      ;; 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.
+      ;; We should try and use read-key instead.
+      (let ((translation (lookup-key local-function-key-map (vector char))))
+       (if (arrayp translation)
+           (setq translated (aref translation 0))))
       (setq translated
            (if (integerp char)
                (char-resolve-modifiers char)
              char))
-      (let ((translation (lookup-key local-function-key-map (vector char))))
-       (if (arrayp translation)
-           (setq translated (aref translation 0))))
       (cond ((null translated))
            ((not (integerp translated))
             (setq unread-command-events (list char)