Mercurial > emacs

changeset 84873:c62cc793efc7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ido-to-end, ido-set-matches-1): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 25 Sep 2007 11:08:45 +0000
parents b39ee0f351f1
children e971b563a3eb
files lisp/ido.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)