diff options
author | Tassilo Horn <tsdh@gnu.org> | 2019-03-08 19:59:32 +0100 |
---|---|---|
committer | Tassilo Horn <tsdh@gnu.org> | 2019-03-08 20:00:49 +0100 |
commit | bec7fb2988c98a4103cc77bebc454c81a89e0f49 (patch) | |
tree | 16af76727225ed27d3d626e98f25a2cc607d8f4f | |
parent | db9c924d3d53f46846ad8fd74a5d08f4586a520e (diff) | |
download | emacs-bec7fb2988c98a4103cc77bebc454c81a89e0f49.tar.gz |
New command ido-switch-to-completions.
* lisp/ido.el (ido-switch-to-completions): New command.
-rw-r--r-- | lisp/ido.el | 18 |
1 files changed, 17 insertions, 1 deletions
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 |