diff lisp/subr.el @ 23058:4d7992b69c29

(read-quoted-char): Don't bind input-method-function; instead, pass the new args to read-event.

--- 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