Mercurial > emacs
changeset 48030:4086fbc6ad65
(ido-cannot-complete-command): New defcustom, default to
ido-completion-help (similar to iswitchb-cannot-complete-hook).
(ido-complete): Call value of ido-cannot-complete-command rather
than ido-completion-help when no common completion.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 27 Oct 2002 21:31:19 +0000 |
| parents | b3495cf753c5 |
| children | 5adaaf91c4d5 |
| files | lisp/ido.el |
| diffstat | 1 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ido.el Sun Oct 27 21:30:52 2002 +0000 +++ b/lisp/ido.el Sun Oct 27 21:31:19 2002 +0000 @@ -489,6 +489,15 @@ :type 'boolean :group 'ido) +(defcustom ido-cannot-complete-command 'ido-completion-help + "*Command run when `ido-complete' can't complete any more. +The most useful values are `ido-completion-help', which pops up a +window with completion alternatives, or `ido-next-match' or +`ido-prev-match', which cycle the buffer list." + :type 'function + :group 'ido) + + (defcustom ido-record-commands t "*Non-nil means that `ido' will record commands in command history. Note that the non-ido equivalent command is recorded." @@ -1928,8 +1937,7 @@ ((not ido-matches) (when ido-completion-buffer - (setq this-command 'ido-completion-help) - (ido-completion-help))) + (call-interactively (setq this-command ido-cannot-complete-command)))) ((= 1 (length ido-matches)) ;; only one choice, so select it. @@ -1946,7 +1954,7 @@ (delete-region (minibuffer-prompt-end) (point)) (insert res)) ;; else nothing to complete - (ido-completion-help) + (call-interactively (setq this-command ido-cannot-complete-command)) ))))) (defun ido-complete-space ()