From dabec3c9cd3e24acc367699424e6754ebd1476a7 Mon Sep 17 00:00:00 2001
From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 11:03:35 +0000
Subject: (ffap-replace-file-component): Use `mapc' rather than `mapcar'.

---
 lisp/ffap.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/ffap.el')

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 80b94a4d3b..8c338bd947 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
-- 
cgit v1.2.3