diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-08-18 09:32:31 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-08-18 09:32:31 +0000 |
commit | b7de4d62b3c44977619ce039719d41fdac8a0bd0 (patch) | |
tree | 4aba100edcd8c8d95909d66d59e4829453330763 | |
parent | 7ba13c57a2b6211228a3485b65129b6c9b732790 (diff) | |
download | emacs-b7de4d62b3c44977619ce039719d41fdac8a0bd0.tar.gz |
(read-quoted-char): Don't bind input-method-function;
instead, pass the new args to read-event.
-rw-r--r-- | lisp/subr.el | 5 |
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 |