mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(comint-read-noecho): Use read-char-exclusive' instead of read-char'.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-11-01 01:30:16 +00:00
parent b30ec46658
commit af171fd0d4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/comint.el
View File

@ -1383,7 +1383,8 @@ applications."
(if stars
(message "%s%s" prompt (make-string (length ans) ?*))
(message prompt))
(setq c (read-char))
;; Use this instead of `read-char' to avoid "Non-character input-event".
(setq c (read-char-exclusive))
(cond ((= c ?\C-g)
;; This function may get called from a process filter, where
;; inhibit-quit is set. In later versions of emacs read-char