Mercurial > emacs
changeset 23058:4d7992b69c29
(read-quoted-char): Don't bind input-method-function;
instead, pass the new args to read-event.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Aug 1998 09:32:31 +0000 |
| parents | 2dbf1ec20bf7 |
| children | 41745889db17 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 1 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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