# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190767101 0
# Node ID ffdba9eb7f4e75aad512d46b59770c7f62e4c2d6
# Parent  2d6454dca5fbae76ea1eff417c8826231f177473
(top): Use `mapc' rather than `mapcar'.

diff -r 2d6454dca5fb -r ffdba9eb7f4e lisp/url/url-dav.el
--- a/lisp/url/url-dav.el	Wed Sep 26 00:36:39 2007 +0000
+++ b/lisp/url/url-dav.el	Wed Sep 26 00:38:21 2007 +0000
@@ -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 @@
 	 (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 @@
 (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