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

instead of char-resolve-modifers.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0278476b49e..034569fc30e 100644
--- 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 2ce6b234e60..d62b38b00d4 100644
--- 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)