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."
         (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)