Mercurial > emacs
changeset 84868:a570abcfe00a
(cd): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 25 Sep 2007 11:05:46 +0000 |
| parents | 52075b268fc9 |
| children | 9ee30350a5a4 |
| files | lisp/files.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)