Mercurial > emacs
comparison lisp/ido.el @ 48030:4086fbc6ad65
(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.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Sun, 27 Oct 2002 21:31:19 +0000 |
parents | 01727f34cb9d |
children | 40a74df31521 |
comparison
equal
deleted
inserted
replaced
48029:b3495cf753c5 | 48030:4086fbc6ad65 |
---|---|
486 text is a prefix \(this behavior is like the standard unix- or | 486 text is a prefix \(this behavior is like the standard unix- or |
487 emacs-completion works). | 487 emacs-completion works). |
488 Value can be toggled within `ido' using `ido-toggle-prefix'." | 488 Value can be toggled within `ido' using `ido-toggle-prefix'." |
489 :type 'boolean | 489 :type 'boolean |
490 :group 'ido) | 490 :group 'ido) |
491 | |
492 (defcustom ido-cannot-complete-command 'ido-completion-help | |
493 "*Command run when `ido-complete' can't complete any more. | |
494 The most useful values are `ido-completion-help', which pops up a | |
495 window with completion alternatives, or `ido-next-match' or | |
496 `ido-prev-match', which cycle the buffer list." | |
497 :type 'function | |
498 :group 'ido) | |
499 | |
491 | 500 |
492 (defcustom ido-record-commands t | 501 (defcustom ido-record-commands t |
493 "*Non-nil means that `ido' will record commands in command history. | 502 "*Non-nil means that `ido' will record commands in command history. |
494 Note that the non-ido equivalent command is recorded." | 503 Note that the non-ido equivalent command is recorded." |
495 :type 'boolean | 504 :type 'boolean |
1926 (setq ido-exit 'refresh) | 1935 (setq ido-exit 'refresh) |
1927 (exit-minibuffer)))) | 1936 (exit-minibuffer)))) |
1928 | 1937 |
1929 ((not ido-matches) | 1938 ((not ido-matches) |
1930 (when ido-completion-buffer | 1939 (when ido-completion-buffer |
1931 (setq this-command 'ido-completion-help) | 1940 (call-interactively (setq this-command ido-cannot-complete-command)))) |
1932 (ido-completion-help))) | |
1933 | 1941 |
1934 ((= 1 (length ido-matches)) | 1942 ((= 1 (length ido-matches)) |
1935 ;; only one choice, so select it. | 1943 ;; only one choice, so select it. |
1936 (exit-minibuffer)) | 1944 (exit-minibuffer)) |
1937 | 1945 |
1944 ;; move exact match to front if not in prefix mode | 1952 ;; move exact match to front if not in prefix mode |
1945 (setq ido-rescan (not ido-enable-prefix)) | 1953 (setq ido-rescan (not ido-enable-prefix)) |
1946 (delete-region (minibuffer-prompt-end) (point)) | 1954 (delete-region (minibuffer-prompt-end) (point)) |
1947 (insert res)) | 1955 (insert res)) |
1948 ;; else nothing to complete | 1956 ;; else nothing to complete |
1949 (ido-completion-help) | 1957 (call-interactively (setq this-command ido-cannot-complete-command)) |
1950 ))))) | 1958 ))))) |
1951 | 1959 |
1952 (defun ido-complete-space () | 1960 (defun ido-complete-space () |
1953 "Try completion unless inserting the space makes sense." | 1961 "Try completion unless inserting the space makes sense." |
1954 (interactive) | 1962 (interactive) |