# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 805123583 0
# Node ID ec77cb3940f1af6b894adb1129d261e0a94c6843
# Parent  3f4cd64a473098eb965cb51351edde0c80547cd1
(switch-to-completions): Make a completions window if none.

diff -r 3f4cd64a4730 -r ec77cb3940f1 lisp/simple.el
--- a/lisp/simple.el	Fri Jul 07 13:25:47 1995 +0000
+++ b/lisp/simple.el	Fri Jul 07 13:26:23 1995 +0000
@@ -2954,6 +2954,9 @@
 (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")