diff options
| author | David Kastrup <dak@gnu.org> | 2015-07-25 18:54:42 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2015-08-04 14:34:15 +0200 |
| commit | 5022e27dac4c13651941e425dbec5b3a2cecdae4 (patch) | |
| tree | 696d748c8abc3aea1bfd5305a8e71dc985053496 /lisp/comint.el | |
| parent | 227e996946d4629fa8f6d665564a37668290c87f (diff) | |
| download | emacs-5022e27dac4c13651941e425dbec5b3a2cecdae4.tar.gz | |
; Do not overwrite preexisting contents of unread-command-events
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index de220619751..7db297a1427 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1051,7 +1051,7 @@ See also `comint-read-input-ring'." (let ((ch (read-event))) (if (eq ch ?\s) (set-window-configuration conf) - (setq unread-command-events (list ch))))))) + (push ch unread-command-events)))))) (defun comint-regexp-arg (prompt) @@ -3365,7 +3365,8 @@ the completions." (set-window-configuration comint-dynamic-list-completions-config)) (if (eq first ?\s) (set-window-configuration comint-dynamic-list-completions-config) - (setq unread-command-events (listify-key-sequence key))))))) + (setq unread-command-events + (nconc (listify-key-sequence key) unread-command-events))))))) (defun comint-get-next-from-history () "After fetching a line from input history, this fetches the following line. |