mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source 
instead, pass the new args to read-event.
This commit is contained in:
Richard M. Stallman 1998-08-18 09:32:31 +00:00
parent 7ba13c57a2
commit b7de4d62b3
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/subr.el
View File

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