[Emacs-diffs] Changes to emacs/lisp/ido.el

[Kim F. Storm]

Index: emacs/lisp/ido.el
diff -c emacs/lisp/ido.el:1.13 emacs/lisp/ido.el:1.14
*** emacs/lisp/ido.el:1.13      Tue Oct 22 18:27:50 2002
--- emacs/lisp/ido.el   Sun Oct 27 16:31:19 2002
***************
*** 489,494 ****
--- 489,503 ----
    :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,1935 ****
  
       ((not ido-matches)
        (when ido-completion-buffer
!       (setq this-command 'ido-completion-help)
!       (ido-completion-help)))
          
       ((= 1 (length ido-matches))
        ;; only one choice, so select it.
--- 1937,1943 ----
  
       ((not ido-matches)
        (when ido-completion-buffer
!       (call-interactively (setq this-command ido-cannot-complete-command))))
          
       ((= 1 (length ido-matches))
        ;; only one choice, so select it.
***************
*** 1946,1952 ****
            (delete-region (minibuffer-prompt-end) (point))
            (insert res))
        ;; else nothing to complete
!       (ido-completion-help)
        )))))
  
  (defun ido-complete-space ()
--- 1954,1960 ----
            (delete-region (minibuffer-prompt-end) (point))
            (insert res))
        ;; else nothing to complete
!       (call-interactively (setq this-command ido-cannot-complete-command))
        )))))
  
  (defun ido-complete-space ()