diff options
| author | Miles Bader <miles@gnu.org> | 2007-10-11 16:14:00 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-10-11 16:14:00 +0000 |
| commit | 41520ab0b3f0a0ae6bd81731f67eb43cf23500d8 (patch) | |
| tree | 4bca9a170abd1057555ecc73c8ba6b58640cd8db /lisp/ido.el | |
| parent | ea50afbd1738693ae470f282330aecf2746809c7 (diff) | |
| parent | 39e55877e2bfca874f1640302fec16ded1bbf7d3 (diff) | |
| download | emacs-41520ab0b3f0a0ae6bd81731f67eb43cf23500d8.tar.gz | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 866-879)
- Merge multi-tty branch
- Update from CVS
- Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
Diffstat (limited to 'lisp/ido.el')
| -rw-r--r-- | lisp/ido.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index ca44e99b594..27e9d66e25c 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -3354,7 +3354,7 @@ for first matching file." (defun ido-to-end (items) ;; Move the elements from ITEMS to the end of `ido-temp-list' - (mapcar + (mapc (lambda (elem) (setq ido-temp-list (delq elem ido-temp-list))) items) @@ -3603,7 +3603,7 @@ for first matching file." full-matches suffix-matches prefix-matches matches) (setq ido-incomplete-regexp nil) (condition-case error - (mapcar + (mapc (lambda (item) (let ((name (ido-name item))) (if (and (or non-prefix-dot @@ -3648,7 +3648,7 @@ for first matching file." (setq re (mapconcat #'regexp-quote (split-string ido-text "") ".*")) (if ido-enable-prefix (setq re (concat "\\`" re))) - (mapcar + (mapc (lambda (item) (let ((name (ido-name item))) (if (string-match re name) |