Commit 9595fbdb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(switch-to-completions): Make a completions window if none.

parent f4573839
......@@ -2954,6 +2954,9 @@ select the completion near point.\n\n"))
(defun switch-to-completions ()
"Select the completion list window."
(interactive)
;; Make sure we have a completions window.
(or (get-buffer-window "*Completions*")
(minibuffer-completion-help))
(select-window (get-buffer-window "*Completions*"))
(goto-char (point-min))
(search-forward "\n\n")
......
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