summaryrefslogtreecommitdiff
path: root/lisp/comint.el
diff options
context:
space:
mode:
authorNick Roberts <nickrob@snap.net.nz>2006-03-27 08:50:20 +0000
committerNick Roberts <nickrob@snap.net.nz>2006-03-27 08:50:20 +0000
commit86fc247003f05ef252b566724b93c9341befcb08 (patch)
tree37c006f1173b7e1193f2a7dfe93a1575e52d4e9a /lisp/comint.el
parent9db237d572b3b92a2e1a11818a511b5b0123a537 (diff)
downloademacs-86fc247003f05ef252b566724b93c9341befcb08.tar.gz
(comint-dynamic-list-completions): Allow user to select *Completions* buffer.
Diffstat (limited to 'lisp/comint.el')
-rw-r--r--lisp/comint.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/comint.el b/lisp/comint.el
index 0cae078f481..5ab00354f80 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2942,10 +2942,9 @@ Typing SPC flushes the help buffer."
(progn
(mouse-choose-completion first)
(set-window-configuration comint-dynamic-list-completions-config))
- (unless (eq first ?\s)
- (setq unread-command-events (listify-key-sequence key)))
- (unless (eq first ?\t)
- (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)))))))
(defun comint-get-next-from-history ()