From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 11:05:46 +0000 (+0000)
Subject: (cd): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10672
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=458c46fc13df0886d80b37cc6deaa930f867991f;p=emacs.git

(cd): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/files.el b/lisp/files.el
index 1effa5b4c59..33bf434a9f6 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -643,7 +643,7 @@ The path separator is colon in GNU and GNU-like systems."
 	(let ((trypath (parse-colon-path (getenv "CDPATH"))))
 	  (setq cd-path (or trypath (list "./")))))
     (if (not (catch 'found
-	       (mapcar
+	       (mapc
 		(function (lambda (x)
 			    (let ((f (expand-file-name (concat x dir))))
 			      (if (file-directory-p f)