# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190718525 0
# Node ID c62cc793efc7c15f5d2e4f5e4fbe0d5d2f894214
# Parent  b39ee0f351f1ed3b0a97d3302e43b5133b53d2d0
(ido-to-end, ido-set-matches-1): Use `mapc' rather than `mapcar'.

diff -r b39ee0f351f1 -r c62cc793efc7 lisp/ido.el
--- a/lisp/ido.el	Tue Sep 25 11:07:41 2007 +0000
+++ b/lisp/ido.el	Tue Sep 25 11:08:45 2007 +0000
@@ -3354,7 +3354,7 @@
 
 (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 @@
 	 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 @@
       (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)