From d1a0acacb3fa88cb75a0367fc6b8c1e56779e5f9 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 27 Oct 2002 21:31:19 +0000 Subject: [PATCH] (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. --- lisp/ido.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ido.el b/lisp/ido.el index f9ba8178cba..93ecfc1755a 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -489,6 +489,15 @@ Value can be toggled within `ido' using `ido-toggle-prefix'." :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 @@ If INITIAL is non-nil, it specifies the initial input string." ((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 @@ If INITIAL is non-nil, it specifies the initial input string." (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 () -- 2.39.2