[Emacs-diffs] Changes to emacs/lisp/subr.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/03/05 04:29:54

Index: subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.579
retrieving revision 1.580
diff -u -b -r1.579 -r1.580
--- subr.el     24 Feb 2008 10:08:57 -0000      1.579
+++ subr.el     5 Mar 2008 04:29:53 -0000       1.580
@@ -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))))