# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190766098 0
# Node ID db1179979d6bd1ce7e02638ed57e328b6a498f08
# Parent  417443aefcdd25b28a632221683fa80457b2cc61
(ange-ftp-call-chmod, ange-ftp-parse-bs2000-listing):
Use `mapc' rather than `mapcar'.

diff -r 417443aefcdd -r db1179979d6b lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Wed Sep 26 00:20:26 2007 +0000
+++ b/lisp/net/ange-ftp.el	Wed Sep 26 00:21:38 2007 +0000
@@ -4580,7 +4580,7 @@
 	(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 @@
     (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