(top): Use `mapc' rather than `mapcar'.

3 files changed, 26 insertions, 21 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 05be493b74e..5da6a1fbae3 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-26  Juanma Barranquero  <lekktu@gmail.com>
+
+        * url-dav.el (top):
+        * url-vars.el (top): Use `mapc' rather than `mapcar'.
+
 2007-09-22  Diane Murray  <disumu@x3y2z1.net>
 
         * url-misc.el (url-generic-emulator-loader): Send the port as a
diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el
index b58c1672865..3c2ea872134 100644
--- a/lisp/url/url-dav.el
+++ b/lisp/url/url-dav.el
@@ -194,7 +194,7 @@
     (while children
       (setq node (car children)
             node-type (intern
-                       (or 
+                       (or
                         (cdr-safe (assq url-dav-datatype-attribute
                                         (xml-node-attributes node)))
                         "unknown"))
@@ -864,7 +864,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
          (exists-p (url-http-file-exists-p newname)))
 
     (if (and exists-p
-             (or 
+             (or
               (null overwrite)
               (and (numberp overwrite)
                    (not (yes-or-no-p
@@ -933,19 +933,19 @@ Returns nil if DIR contains no name starting with FILE."
 (defun url-dav-register-handler (op)
   (put op 'url-file-handlers (intern-soft (format "url-dav-%s" op))))
 
-(mapcar 'url-dav-register-handler
-        ;; These handlers are disabled because they incorrectly presume that
-        ;; the URL specifies an HTTP location and thus break FTP URLs.
-        '(;; file-name-all-completions
-          ;; file-name-completion
-          ;; rename-file
-          ;; make-directory
-          ;; file-directory-p
-          ;; directory-files
-          ;; delete-file
-          ;; delete-directory
-          ;; file-attributes
-          ))
+(mapc 'url-dav-register-handler
+      ;; These handlers are disabled because they incorrectly presume that
+      ;; the URL specifies an HTTP location and thus break FTP URLs.
+      '(;; file-name-all-completions
+        ;; file-name-completion
+        ;; rename-file
+        ;; make-directory
+        ;; file-directory-p
+        ;; directory-files
+        ;; delete-file
+        ;; delete-directory
+        ;; file-attributes
+        ))
 
 
 ;;; Version Control backend cruft
diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 35e69e7990b..7ddab8aab64 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -62,12 +62,12 @@
 (defvar url-current-mime-headers nil
   "A parsed representation of the MIME headers for the current url.")
 
-(mapcar 'make-variable-buffer-local
-        '(
-          url-current-object
-          url-current-referer
-          url-current-mime-headers
-          ))
+(mapc 'make-variable-buffer-local
+      '(
+        url-current-object
+        url-current-referer
+        url-current-mime-headers
+        ))
 
 (defcustom url-honor-refresh-requests t
   "*Whether to do automatic page reloads.