# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190718346 0
# Node ID a570abcfe00a6717725a7c4d5df1be756e0c951e
# Parent  52075b268fc9df06c780260773c7d6470a24383c
(cd): Use `mapc' rather than `mapcar'.

diff -r 52075b268fc9 -r a570abcfe00a lisp/files.el
--- a/lisp/files.el	Tue Sep 25 11:04:33 2007 +0000
+++ b/lisp/files.el	Tue Sep 25 11:05:46 2007 +0000
@@ -643,7 +643,7 @@
 	(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)