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

diff --git a/lisp/simple.el b/lisp/simple.el
index e5eb212fe46e30337c2390d516d776fa76f9378e..e1d9b012cfc48c38743e1f34fb518670ba3a0059 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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")