Commit eb69fe3e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(pcomplete-show-completions): Improve last change, so

as not to use an invisible window and to create a window if none exist.
parent 86a3e45e
......@@ -974,18 +974,20 @@ Typing SPC flushes the help buffer."
(while (with-current-buffer (get-buffer "*Completions*")
(setq event (pcomplete-read-event)))
(cond
((event-matches-key-specifier-p event ? )
((event-matches-key-specifier-p event ?\s)
(set-window-configuration pcomplete-last-window-config)
(setq pcomplete-last-window-config nil)
(throw 'done nil))
((or (event-matches-key-specifier-p event 'tab)
;; Needed on a terminal
(event-matches-key-specifier-p event 9))
(save-selected-window
(select-window (get-buffer-window "*Completions*" t))
(if (pos-visible-in-window-p (point-max))
(goto-char (point-min))
(scroll-up)))
(let ((win (or (get-buffer-window "*Completions*" 0)
(display-buffer "*Completions*"
'not-this-window))))
(with-selected-window win
(if (pos-visible-in-window-p (point-max))
(goto-char (point-min))
(scroll-up))))
(message ""))
(t
(setq unread-command-events (list event))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment