From 458c46fc13df0886d80b37cc6deaa930f867991f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 11:05:46 +0000 Subject: [PATCH] (cd): Use `mapc' rather than `mapcar'. --- lisp/files.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2