# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 903432751 0
# Node ID 4d7992b69c29661abc5a5ed29d9dd06781af9bf5
# Parent  2dbf1ec20bf7a8bf148a5bcd21aa9614ad83f9a2
(read-quoted-char): Don't bind input-method-function;
instead, pass the new args to read-event.

diff -r 2dbf1ec20bf7 -r 4d7992b69c29 lisp/subr.el
--- a/lisp/subr.el	Tue Aug 18 09:01:20 1998 +0000
+++ b/lisp/subr.el	Tue Aug 18 09:32:31 1998 +0000
@@ -741,8 +741,6 @@
   (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 @@
 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