From 9595fbdb9a5a0e49a849bedd9b2b1106b39de71d Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 7 Jul 1995 13:26:23 +0000
Subject: [PATCH] (switch-to-completions): Make a completions window if none.

---
 lisp/simple.el | 3 +++
 1 file changed, 3 insertions(+)

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")
-- 
2.39.2