From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 11:03:35 +0000 (+0000)
Subject: (ffap-replace-file-component): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10674
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dabec3c9cd3e24acc367699424e6754ebd1476a7;p=emacs.git

(ffap-replace-file-component): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 80b94a4d3ba..8c338bd947a 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -482,7 +482,7 @@ Returned values:
   "In remote FULLNAME, replace path with NAME.  May return nil."
   ;; Use ange-ftp or efs if loaded, but do not load them otherwise.
   (let (found)
-    (mapcar
+    (mapc
      (function (lambda (sym) (and (fboundp sym) (setq found sym))))
      '(
        efs-replace-path-component