From af171fd0d41f64ae6a554472fe50613e312f5508 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Nov 1994 01:30:16 +0000 Subject: [PATCH] (comint-read-noecho): Use `read-char-exclusive' instead of `read-char'. --- lisp/comint.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.5