Mercurial > emacs

changeset 84913:db1179979d6b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-call-chmod, ange-ftp-parse-bs2000-listing): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 26 Sep 2007 00:21:38 +0000
parents 417443aefcdd
children 0306d3c580c6
files lisp/net/ange-ftp.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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