(ido-to-end, ido-set-matches-1): Use `mapc' rather than `mapcar'.

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)