From: Tassilo Horn <tsdh@gnu.org>
Date: Fri, 8 Mar 2019 18:59:32 +0000 (+0100)
Subject: New command ido-switch-to-completions.
X-Git-Tag: emacs-27.0.90~3457
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bec7fb2988c98a4103cc77bebc454c81a89e0f49;p=emacs.git

New command ido-switch-to-completions.

* lisp/ido.el (ido-switch-to-completions): New command.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index c268289a18f..08540145815 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3965,8 +3965,24 @@ If `ido-change-word-sub' cannot be found in WORD, return nil."
     (exit-minibuffer)
     t))
 
+;; This is a shameless copy of `switch-to-completions'.
+(defun ido-switch-to-completions ()
+  "Select the window showing `ido-completion-buffer'."
+  (interactive)
+  (let ((window (or (get-buffer-window ido-completion-buffer 0)
+		    ;; Make sure we have a completions window.
+                    (progn (ido-completion-help)
+                           (get-buffer-window ido-completion-buffer 0)))))
+    (when window
+      (select-window window)
+      ;; In the new buffer, go to the first completion.
+      ;; FIXME: Perhaps this should be done in `ido-completion-help'.
+      (when (bobp)
+	(next-completion 1)))))
+
+
 (defun ido-completion-help ()
-  "Show possible completions in a \"*File Completions*\" buffer."
+  "Show possible completions in the `ido-completion-buffer'."
   (interactive)
   (setq ido-rescan nil)
   (let ((temp-buf (and ido-completion-buffer