[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:21:38

Index: ange-ftp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/ange-ftp.el,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -b -r1.91 -r1.92
--- ange-ftp.el 30 Aug 2007 19:58:28 -0000      1.91
+++ ange-ftp.el 26 Sep 2007 00:21:38 -0000      1.92
@@ -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,7 +6055,7 @@
     (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))
+       (mapc (lambda (pubset) (puthash pubset t tbl))
                ange-ftp-bs2000-additional-pubsets))
     tbl))