aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ido.el6
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)