diff options
| author | Richard M. Stallman | 1993-03-06 05:56:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-06 05:56:08 +0000 |
| commit | bdc2ae8d60d0b74ee0f1989e5719e207fd7679aa (patch) | |
| tree | 1c931ac1a804fca54b430e69f370f9d33076dc76 | |
| parent | cde6d7e31691a69bdccca97e347072e6139adbd9 (diff) | |
| download | emacs-bdc2ae8d60d0b74ee0f1989e5719e207fd7679aa.tar.gz emacs-bdc2ae8d60d0b74ee0f1989e5719e207fd7679aa.zip | |
(comint-dynamic-list-completions): Handle any event when flushing the display.
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 00b96185c22..a35ae10fd02 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1093,10 +1093,10 @@ it just adds completion characters to the end of the filename." | |||
| 1093 | (display-completion-list completions)) | 1093 | (display-completion-list completions)) |
| 1094 | (sit-for 0) | 1094 | (sit-for 0) |
| 1095 | (message "Hit space to flush") | 1095 | (message "Hit space to flush") |
| 1096 | (let ((ch (read-char))) | 1096 | (let ((ch (read-event))) |
| 1097 | (if (= ch ?\ ) | 1097 | (if (= ch ?\ ) |
| 1098 | (set-window-configuration conf) | 1098 | (set-window-configuration conf) |
| 1099 | (setq unread-command-events (list ch))))))))) | 1099 | (setq unread-command-events (list ch))))))))) |
| 1100 | 1100 | ||
| 1101 | ;;; Converting process modes to use comint mode | 1101 | ;;; Converting process modes to use comint mode |
| 1102 | ;;; =========================================================================== | 1102 | ;;; =========================================================================== |