From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 11:08:45 +0000 (+0000)
Subject: (ido-to-end, ido-set-matches-1): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10667
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db99576a910f7804e0abb8b1fa5f4069c4af1c28;p=emacs.git

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

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)