(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.

1 files 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 ()