(comint-dynamic-list-completions): Allow user to select *Completions* buffer.

diff --git a/lisp/comint.el b/lisp/comint.el
index 0cae078f481deda139cd485c4954a30fef007a8f..5ab00354f809464e47f246ad9308fba34ad87564 100644 (file)
--- 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)))))))
 
 \f
 (defun comint-get-next-from-history ()