aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/comint.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el
index eb9b083fb42..286536574a8 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1965,17 +1965,17 @@ See also `comint-dynamic-complete-filename'."
1965 "List in help buffer sorted COMPLETIONS. 1965 "List in help buffer sorted COMPLETIONS.
1966Typing SPC flushes the help buffer." 1966Typing SPC flushes the help buffer."
1967 (let ((conf (current-window-configuration))) 1967 (let ((conf (current-window-configuration)))
1968 (with-output-to-temp-buffer " *Completions*" 1968 (with-output-to-temp-buffer "*Completions*"
1969 (display-completion-list (sort completions 'string-lessp))) 1969 (display-completion-list (sort completions 'string-lessp)))
1970 (message "Hit space to flush") 1970 (message "Hit space to flush")
1971 (let (key first) 1971 (let (key first)
1972 (if (save-excursion 1972 (if (save-excursion
1973 (set-buffer (get-buffer " *Completions*")) 1973 (set-buffer (get-buffer "*Completions*"))
1974 (setq key (read-key-sequence nil) 1974 (setq key (read-key-sequence nil)
1975 first (aref key 0)) 1975 first (aref key 0))
1976 (and (consp first) 1976 (and (consp first)
1977 (eq (window-buffer (posn-window (event-start first))) 1977 (eq (window-buffer (posn-window (event-start first)))
1978 (get-buffer " *Completions*")) 1978 (get-buffer "*Completions*"))
1979 (eq (key-binding key) 'mouse-choose-completion))) 1979 (eq (key-binding key) 'mouse-choose-completion)))
1980 ;; If the user does mouse-choose-completion with the mouse, 1980 ;; If the user does mouse-choose-completion with the mouse,
1981 ;; execute the command, then delete the completion window. 1981 ;; execute the command, then delete the completion window.