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

diff --git a/lisp/ido.el b/lisp/ido.el
index f9ba8178cba572b298e0b0b929b6ade4f3eccce1..93ecfc1755aeb4cd5353d2dd9cde5a7196812bd1 100644 (file)
--- 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 ()