(read-quoted-char): Don't bind input-method-function;

instead, pass the new args to read-event.

diff --git a/lisp/subr.el b/lisp/subr.el
index a4e3725d02fa1c86ae891b730e41f8d6c46f807f..6b1b4dff224f6d4b1eb088a209a5c9ceb3ea2f59 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -741,8 +741,6 @@ for numeric input."
   (let ((message-log-max nil) done (first t) (code 0) char)
     (while (not done)
       (let ((inhibit-quit first)
-           ;; Don't use input methods inside this function.
-           (input-method-function nil)
            ;; Don't let C-h get the help message--only help function keys.
            (help-char nil)
            (help-form
@@ -750,8 +748,7 @@ for numeric input."
 or the octal character code.
 RET terminates the character code and is discarded;
 any other non-digit terminates the character code and is then used as input."))
-       (and prompt (message "%s-" prompt))
-       (setq char (read-event))
+       (setq char (read-event (and prompt (format "%s-" prompt)) t))
        (if inhibit-quit (setq quit-flag nil)))
       ;; Translate TAB key into control-I ASCII character, and so on.
       (and char