From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Jul 1995 13:26:23 +0000 (+0000)
Subject: (switch-to-completions): Make a completions window if none.
X-Git-Tag: emacs-19.34~3376
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9595fbdb9a5a0e49a849bedd9b2b1106b39de71d;p=emacs.git

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

diff --git a/lisp/simple.el b/lisp/simple.el
index e5eb212fe46..e1d9b012cfc 100644
--- 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")