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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 05be493b74e58a634f6c08c33ab421b50072ba75..5da6a1fbae34faf2b2cf77d2493fc75545dfba4b 100644 (file)
--- 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 b58c16728656e4f06bb1773c16a7cfc4c1ef71af..3c2ea8721347b7493e450e4ce0c85b79cf40543e 100644 (file)
--- 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
+       ))
 
 \f
 ;;; Version Control backend cruft

diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 35e69e7990b9c7deb9081f6098a5ef08013c1e31..7ddab8aab6431d4b15c6d6969322a130496b46cc 100644 (file)
--- 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.