# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190718215 0
# Node ID 45ab0bfaaa1203122e21f6c0ad3d1a780bf19711
# Parent  4dd4685a454f6f79b5380be90ae5ba8695d15a38
(ffap-replace-file-component): Use `mapc' rather than `mapcar'.

diff -r 4dd4685a454f -r 45ab0bfaaa12 lisp/ffap.el
--- a/lisp/ffap.el	Tue Sep 25 11:02:09 2007 +0000
+++ b/lisp/ffap.el	Tue Sep 25 11:03:35 2007 +0000
@@ -482,7 +482,7 @@
   "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