# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1035754279 0
# Node ID 4086fbc6ad65ce05c7f77ea2116b130ad09c9831
# Parent  b3495cf753c5fc0725d4c4b823d45b90824dafb6
(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 -r b3495cf753c5 -r 4086fbc6ad65 lisp/ido.el
--- 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 ()