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

instead, pass the new args to read-event.

1 files changed, 1 insertions, 4 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index a4e3725d02f..6b1b4dff224 100644
--- 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