diff options
| author | Richard M. Stallman | 1994-11-01 01:30:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-01 01:30:16 +0000 |
| commit | af171fd0d41f64ae6a554472fe50613e312f5508 (patch) | |
| tree | 8a4229388d21c741dcf67b858b19b74f35e5de6f | |
| parent | b30ec46658ca7c752dc35881635b5f2cb7caf12a (diff) | |
| download | emacs-af171fd0d41f64ae6a554472fe50613e312f5508.tar.gz emacs-af171fd0d41f64ae6a554472fe50613e312f5508.zip | |
(comint-read-noecho): Use `read-char-exclusive' instead of `read-char'.
| -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." | |||
| 1383 | (if stars | 1383 | (if stars |
| 1384 | (message "%s%s" prompt (make-string (length ans) ?*)) | 1384 | (message "%s%s" prompt (make-string (length ans) ?*)) |
| 1385 | (message prompt)) | 1385 | (message prompt)) |
| 1386 | (setq c (read-char)) | 1386 | ;; Use this instead of `read-char' to avoid "Non-character input-event". |
| 1387 | (setq c (read-char-exclusive)) | ||
| 1387 | (cond ((= c ?\C-g) | 1388 | (cond ((= c ?\C-g) |
| 1388 | ;; This function may get called from a process filter, where | 1389 | ;; This function may get called from a process filter, where |
| 1389 | ;; inhibit-quit is set. In later versions of emacs read-char | 1390 | ;; inhibit-quit is set. In later versions of emacs read-char |