From: Martin Rudalics <rudalics@gmx.at>
Date: Sun, 28 Sep 2008 08:43:50 +0000 (+0000)
Subject: (read-quoted-char): Call char-resolve-modifiers
X-Git-Tag: emacs-pretest-23.0.90~2736
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c41bd0ec431e1b15b5f800b2ca302cc27f2208f5;p=emacs.git

(read-quoted-char): Call char-resolve-modifiers
instead of char-resolve-modifers.
---

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)