Mercurial > emacs
comparison lisp/ido.el @ 89978:566253900690
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-40
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-535
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-536
sync-tree with gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-537
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-538
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-539
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-540
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-541
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-542
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-545
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-546
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-547
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-548
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-549
Use symbol-matching for generic-mode keywords
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-550
Update from CVS
* miles@gnu.org--gnu-2004/gnus--devo--0--patch-2
Add {arch}/=cvs-sync-make-log
* miles@gnu.org--gnu-2004/gnus--rel--5.8--base-0
Import from Gnus CVS branch V5-8
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-1
{arch}/=tagging-method: Add CVS and autoconf grot to junk regexp
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-2
Use explicit tags for autoconf input files
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-3
Remove RCS keywords
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-4
Fix copied explicit id-tags
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-5
Add {arch}/=cvs-sync-make-log
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-6
configure.in: Use ifelse instead of m4_if for arch-tag: comment
* miles@gnu.org--gnu-2004/gnus--rel--5.10--base-0
tag of miles@gnu.org--gnu-2004/gnus--rel--5.8--base-0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-1
Gnus 5.10, from CVS branch v5-10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-2
Merge from gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-3
Use explicit tags for autoconf input files
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-4
sync-tree with gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-5
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-6
Merge from gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-7
Remove RCS keywords
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-8
Merge from gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-9
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-10
Add {arch}/=cvs-sync-make-log
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-11
Merge from gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-12
Update from CVS: make.bat: Fix line endings around arch-tag.
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-13
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-17
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-21
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-22
Update from CVS: lisp/nndb.el (require): Remove tcp and duplicate cl.
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-23
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-24
lisp/nnimap.el (nnimap-open-connection): Remove extraneous end-paren
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-25
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-26
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 15 Sep 2004 09:00:10 +0000 |
parents | d8411455de48 4bf76a50a989 |
children | 0b158db81c28 |
comparison
equal
deleted
inserted
replaced
89977:549fdd6f6856 | 89978:566253900690 |
---|---|
480 Value can be toggled within `ido' using `ido-toggle-regexp'." | 480 Value can be toggled within `ido' using `ido-toggle-regexp'." |
481 :type 'boolean | 481 :type 'boolean |
482 :group 'ido) | 482 :group 'ido) |
483 | 483 |
484 (defcustom ido-enable-prefix nil | 484 (defcustom ido-enable-prefix nil |
485 "*Nil means that `ido' will match if the inserted text is an | 485 "*Non-nil means only match if the entered text is a prefix of file name. |
486 arbitrary substring (default). If non-nil `ido' will only match if the inserted | 486 This behavior is like the standard emacs-completion. |
487 text is a prefix \(this behavior is like the standard unix- or | 487 Nil means to match if the entered text is an arbitrary substring. |
488 emacs-completion works). | |
489 Value can be toggled within `ido' using `ido-toggle-prefix'." | 488 Value can be toggled within `ido' using `ido-toggle-prefix'." |
489 :type 'boolean | |
490 :group 'ido) | |
491 | |
492 (defcustom ido-enable-dot-prefix nil | |
493 "*Non-nil means to match leading dot as prefix. | |
494 I.e. hidden files and buffers will match only if you type a dot | |
495 as first char even if `ido-enable-prefix' is nil." | |
490 :type 'boolean | 496 :type 'boolean |
491 :group 'ido) | 497 :group 'ido) |
492 | 498 |
493 (defcustom ido-confirm-unique-completion nil | 499 (defcustom ido-confirm-unique-completion nil |
494 "*Non-nil means that even a unique completion must be confirmed. | 500 "*Non-nil means that even a unique completion must be confirmed. |
2926 (re (if ido-enable-prefix (concat "\\`" rexq) rexq)) | 2932 (re (if ido-enable-prefix (concat "\\`" rexq) rexq)) |
2927 (full-re (and do-full (not ido-enable-regexp) (not (string-match "\$\\'" re)) | 2933 (full-re (and do-full (not ido-enable-regexp) (not (string-match "\$\\'" re)) |
2928 (concat "\\`" re "\\'"))) | 2934 (concat "\\`" re "\\'"))) |
2929 (prefix-re (and full-re (not ido-enable-prefix) | 2935 (prefix-re (and full-re (not ido-enable-prefix) |
2930 (concat "\\`" rexq))) | 2936 (concat "\\`" rexq))) |
2937 (non-prefix-dot (or (not ido-enable-dot-prefix) | |
2938 (not ido-process-ignore-lists) | |
2939 ido-enable-prefix | |
2940 (= (length ido-text) 0))) | |
2941 | |
2931 full-matches | 2942 full-matches |
2932 prefix-matches | 2943 prefix-matches |
2933 matches) | 2944 matches) |
2934 (mapcar | 2945 (mapcar |
2935 (lambda (item) | 2946 (lambda (item) |
2936 (let ((name (ido-name item))) | 2947 (let ((name (ido-name item))) |
2937 (if (string-match re name) | 2948 (if (and (or non-prefix-dot |
2949 (if (= (aref ido-text 0) ?.) | |
2950 (= (aref name 0) ?.) | |
2951 (/= (aref name 0) ?.))) | |
2952 (string-match re name)) | |
2938 (cond | 2953 (cond |
2939 ((and full-re (string-match full-re name)) | 2954 ((and full-re (string-match full-re name)) |
2940 (setq full-matches (cons item full-matches))) | 2955 (setq full-matches (cons item full-matches))) |
2941 ((and prefix-re (string-match prefix-re name)) | 2956 ((and prefix-re (string-match prefix-re name)) |
2942 (setq prefix-matches (cons item prefix-matches))) | 2957 (setq prefix-matches (cons item prefix-matches))) |