From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Sep 2007 00:21:38 +0000 (+0000)
Subject: (ange-ftp-call-chmod, ange-ftp-parse-bs2000-listing):
X-Git-Tag: emacs-pretest-23.0.90~10629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d590ea4d87c455991dc16e17d85a87e11e3b4c98;p=emacs.git

(ange-ftp-call-chmod, ange-ftp-parse-bs2000-listing):
Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 2ebf0374658..9962fd14613 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4580,7 +4580,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
 	(rest (cdr args)))
     (if (equal "--" (car rest))
 	(setq rest (cdr rest)))
-    (mapcar
+    (mapc
      (lambda (file)
        (setq file (expand-file-name file))
        (let ((parsed (ange-ftp-ftp-name file)))
@@ -6055,8 +6055,8 @@ Other orders of $ and _ seem to all work just fine.")
     (puthash ".." t tbl)
     ;; add all additional pubsets, if not listing one of them
     (if (not (member pubset ange-ftp-bs2000-additional-pubsets))
-	(mapcar (lambda (pubset) (puthash pubset t tbl))
-		ange-ftp-bs2000-additional-pubsets))
+	(mapc (lambda (pubset) (puthash pubset t tbl))
+	      ange-ftp-bs2000-additional-pubsets))
     tbl))
 
 (add-to-list 'ange-ftp-parse-list-func-alist