(read-quoted-char): Call char-resolve-modifiers

instead of char-resolve-modifers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0278476b49e3aa97020fbf846640c22a2c306466..034569fc30eb3a7ed860027e1bb74f7745ead586 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-28  Martin Rudalics  <rudalics@gmx.at>
+
+       * subr.el (read-quoted-char): Call char-resolve-modifiers
+       instead of char-resolve-modifers.
+
 2008-09-27  Glenn Morris  <rgm@gnu.org>
 
        * play/solitaire.el (solitaire-mode-map): Bind "\r" rather

diff --git a/lisp/subr.el b/lisp/subr.el
index 2ce6b234e60a2298478b449c2511e9b41fc5de85..d62b38b00d474c78926bd51dcdca56e619ede390 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1742,7 +1742,7 @@ any other non-digit terminates the character code and is then used as input."))
       ;; bound to some prefix in function-key-map or key-translation-map.
       (setq translated
            (if (integerp char)
-               (char-resolve-modifers char)
+               (char-resolve-modifiers char)
              char))
       (let ((translation (lookup-key local-function-key-map (vector char))))
        (if (arrayp translation)