Mercurial > emacs
changeset 84866:45ab0bfaaa12
(ffap-replace-file-component): Use `mapc' rather than `mapcar'.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 25 Sep 2007 11:03:35 +0000 |
parents | 4dd4685a454f |
children | 52075b268fc9 |
files | lisp/ffap.el |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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