mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
New command ido-switch-to-completions.
* lisp/ido.el (ido-switch-to-completions): New command.
This commit is contained in:
parent
db9c924d3d
commit
bec7fb2988
1 changed files with 17 additions and 1 deletions
18
lisp/ido.el
18
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
|
||||
|
|
|
|||
Loading…
Reference in a new issue