diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-01 01:30:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-01 01:30:16 +0000 |
| commit | af171fd0d41f64ae6a554472fe50613e312f5508 (patch) | |
| tree | 8a4229388d21c741dcf67b858b19b74f35e5de6f /lisp/comint.el | |
| parent | b30ec46658ca7c752dc35881635b5f2cb7caf12a (diff) | |
| download | emacs-af171fd0d41f64ae6a554472fe50613e312f5508.tar.gz | |
(comint-read-noecho): Use `read-char-exclusive' instead of `read-char'.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 3cb4231d042..3c5a3db8595 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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 |