Mercurial > emacs

comparison lisp/files.el @ 84868:a570abcfe00a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cd): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 25 Sep 2007 11:05:46 +0000
parents 04f3172e88f3
children 5039706521c9
comparison
equal deleted inserted replaced
84867:52075b268fc9 84868:a570abcfe00a
641 (cd-absolute (expand-file-name dir)) 641 (cd-absolute (expand-file-name dir))
642 (if (null cd-path) 642 (if (null cd-path)
643 (let ((trypath (parse-colon-path (getenv "CDPATH")))) 643 (let ((trypath (parse-colon-path (getenv "CDPATH"))))
644 (setq cd-path (or trypath (list "./"))))) 644 (setq cd-path (or trypath (list "./")))))
645 (if (not (catch 'found 645 (if (not (catch 'found
646 (mapcar 646 (mapc
647 (function (lambda (x) 647 (function (lambda (x)
648 (let ((f (expand-file-name (concat x dir)))) 648 (let ((f (expand-file-name (concat x dir))))
649 (if (file-directory-p f) 649 (if (file-directory-p f)
650 (progn 650 (progn
651 (cd-absolute f) 651 (cd-absolute f)