diff options
| author | Juanma Barranquero | 2007-09-26 00:21:38 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-26 00:21:38 +0000 |
| commit | d590ea4d87c455991dc16e17d85a87e11e3b4c98 (patch) | |
| tree | 78c4860d79fa5420b496fee48a2718d2a0ab988c | |
| parent | 1daad47dbd2f2b51e52f6c411acd3272a7e7a160 (diff) | |
| download | emacs-d590ea4d87c455991dc16e17d85a87e11e3b4c98.tar.gz emacs-d590ea4d87c455991dc16e17d85a87e11e3b4c98.zip | |
(ange-ftp-call-chmod, ange-ftp-parse-bs2000-listing):
Use `mapc' rather than `mapcar'.
| -rw-r--r-- | lisp/net/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
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.") | |||
| 4580 | (rest (cdr args))) | 4580 | (rest (cdr args))) |
| 4581 | (if (equal "--" (car rest)) | 4581 | (if (equal "--" (car rest)) |
| 4582 | (setq rest (cdr rest))) | 4582 | (setq rest (cdr rest))) |
| 4583 | (mapcar | 4583 | (mapc |
| 4584 | (lambda (file) | 4584 | (lambda (file) |
| 4585 | (setq file (expand-file-name file)) | 4585 | (setq file (expand-file-name file)) |
| 4586 | (let ((parsed (ange-ftp-ftp-name file))) | 4586 | (let ((parsed (ange-ftp-ftp-name file))) |
| @@ -6055,8 +6055,8 @@ Other orders of $ and _ seem to all work just fine.") | |||
| 6055 | (puthash ".." t tbl) | 6055 | (puthash ".." t tbl) |
| 6056 | ;; add all additional pubsets, if not listing one of them | 6056 | ;; add all additional pubsets, if not listing one of them |
| 6057 | (if (not (member pubset ange-ftp-bs2000-additional-pubsets)) | 6057 | (if (not (member pubset ange-ftp-bs2000-additional-pubsets)) |
| 6058 | (mapcar (lambda (pubset) (puthash pubset t tbl)) | 6058 | (mapc (lambda (pubset) (puthash pubset t tbl)) |
| 6059 | ange-ftp-bs2000-additional-pubsets)) | 6059 | ange-ftp-bs2000-additional-pubsets)) |
| 6060 | tbl)) | 6060 | tbl)) |
| 6061 | 6061 | ||
| 6062 | (add-to-list 'ange-ftp-parse-list-func-alist | 6062 | (add-to-list 'ange-ftp-parse-list-func-alist |