From b7de4d62b3c44977619ce039719d41fdac8a0bd0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 Aug 1998 09:32:31 +0000 Subject: [PATCH] (read-quoted-char): Don't bind input-method-function; instead, pass the new args to read-event. --- lisp/subr.el | 5 +---- 1 file changed, 1 insertion(+), 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