diff options
| author | Juanma Barranquero | 2007-09-25 11:05:46 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-25 11:05:46 +0000 |
| commit | 458c46fc13df0886d80b37cc6deaa930f867991f (patch) | |
| tree | c2c06003cb493d7f05bf04a8872edce3468ab6af | |
| parent | 49176fc7c302908e3cdde68f372b3adea224ed6c (diff) | |
| download | emacs-458c46fc13df0886d80b37cc6deaa930f867991f.tar.gz emacs-458c46fc13df0886d80b37cc6deaa930f867991f.zip | |
(cd): Use `mapc' rather than `mapcar'.
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 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) |