From dd3038f6b20697b6b0ded372ce573729c4ebf4cc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 10 Jun 1994 23:02:04 +0000 Subject: [PATCH] (comint-dynamic-list-completions): No space in *Completions*. --- lisp/comint.el | 6 +++--- 1 file 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'." "List in help buffer sorted COMPLETIONS. Typing SPC flushes the help buffer." (let ((conf (current-window-configuration))) - (with-output-to-temp-buffer " *Completions*" + (with-output-to-temp-buffer "*Completions*" (display-completion-list (sort completions 'string-lessp))) (message "Hit space to flush") (let (key first) (if (save-excursion - (set-buffer (get-buffer " *Completions*")) + (set-buffer (get-buffer "*Completions*")) (setq key (read-key-sequence nil) first (aref key 0)) (and (consp first) (eq (window-buffer (posn-window (event-start first))) - (get-buffer " *Completions*")) + (get-buffer "*Completions*")) (eq (key-binding key) 'mouse-choose-completion))) ;; If the user does mouse-choose-completion with the mouse, ;; execute the command, then delete the completion window. -- 2.39.5