Commit b7de4d62 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(read-quoted-char): Don't bind input-method-function;

instead, pass the new args to read-event.
parent 7ba13c57
......@@ -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)
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment