Mercurial > emacs
changeset 84929:ffdba9eb7f4e
(top): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:38:21 +0000 |
| parents | 2d6454dca5fb |
| children | 41b075c0a949 |
| files | lisp/url/url-dav.el |
| diffstat | 1 files changed, 15 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- 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