diff options
| -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." | |||
| 3354 | 3354 | ||
| 3355 | (defun ido-to-end (items) | 3355 | (defun ido-to-end (items) |
| 3356 | ;; Move the elements from ITEMS to the end of `ido-temp-list' | 3356 | ;; Move the elements from ITEMS to the end of `ido-temp-list' |
| 3357 | (mapcar | 3357 | (mapc |
| 3358 | (lambda (elem) | 3358 | (lambda (elem) |
| 3359 | (setq ido-temp-list (delq elem ido-temp-list))) | 3359 | (setq ido-temp-list (delq elem ido-temp-list))) |
| 3360 | items) | 3360 | items) |
| @@ -3603,7 +3603,7 @@ for first matching file." | |||
| 3603 | full-matches suffix-matches prefix-matches matches) | 3603 | full-matches suffix-matches prefix-matches matches) |
| 3604 | (setq ido-incomplete-regexp nil) | 3604 | (setq ido-incomplete-regexp nil) |
| 3605 | (condition-case error | 3605 | (condition-case error |
| 3606 | (mapcar | 3606 | (mapc |
| 3607 | (lambda (item) | 3607 | (lambda (item) |
| 3608 | (let ((name (ido-name item))) | 3608 | (let ((name (ido-name item))) |
| 3609 | (if (and (or non-prefix-dot | 3609 | (if (and (or non-prefix-dot |
| @@ -3648,7 +3648,7 @@ for first matching file." | |||
| 3648 | (setq re (mapconcat #'regexp-quote (split-string ido-text "") ".*")) | 3648 | (setq re (mapconcat #'regexp-quote (split-string ido-text "") ".*")) |
| 3649 | (if ido-enable-prefix | 3649 | (if ido-enable-prefix |
| 3650 | (setq re (concat "\\`" re))) | 3650 | (setq re (concat "\\`" re))) |
| 3651 | (mapcar | 3651 | (mapc |
| 3652 | (lambda (item) | 3652 | (lambda (item) |
| 3653 | (let ((name (ido-name item))) | 3653 | (let ((name (ido-name item))) |
| 3654 | (if (string-match re name) | 3654 | (if (string-match re name) |