Mercurial > emacs
comparison lisp/url/url-dav.el @ 84929:ffdba9eb7f4e
(top): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:38:21 +0000 |
| parents | bc53aa750f3b |
| children | ef26aa002fe1 |
comparison
equal
deleted
inserted
replaced
| 84928:2d6454dca5fb | 84929:ffdba9eb7f4e |
|---|---|
| 192 (error "No child nodes in DAV:prop")) | 192 (error "No child nodes in DAV:prop")) |
| 193 | 193 |
| 194 (while children | 194 (while children |
| 195 (setq node (car children) | 195 (setq node (car children) |
| 196 node-type (intern | 196 node-type (intern |
| 197 (or | 197 (or |
| 198 (cdr-safe (assq url-dav-datatype-attribute | 198 (cdr-safe (assq url-dav-datatype-attribute |
| 199 (xml-node-attributes node))) | 199 (xml-node-attributes node))) |
| 200 "unknown")) | 200 "unknown")) |
| 201 value nil) | 201 value nil) |
| 202 | 202 |
| 862 (status nil) | 862 (status nil) |
| 863 (directory-p (url-dav-file-directory-p oldname)) | 863 (directory-p (url-dav-file-directory-p oldname)) |
| 864 (exists-p (url-http-file-exists-p newname))) | 864 (exists-p (url-http-file-exists-p newname))) |
| 865 | 865 |
| 866 (if (and exists-p | 866 (if (and exists-p |
| 867 (or | 867 (or |
| 868 (null overwrite) | 868 (null overwrite) |
| 869 (and (numberp overwrite) | 869 (and (numberp overwrite) |
| 870 (not (yes-or-no-p | 870 (not (yes-or-no-p |
| 871 (format "File %s already exists; rename to it anyway? " | 871 (format "File %s already exists; rename to it anyway? " |
| 872 newname)))))) | 872 newname)))))) |
| 931 (substring (car matches) 0 n)))))) | 931 (substring (car matches) 0 n)))))) |
| 932 | 932 |
| 933 (defun url-dav-register-handler (op) | 933 (defun url-dav-register-handler (op) |
| 934 (put op 'url-file-handlers (intern-soft (format "url-dav-%s" op)))) | 934 (put op 'url-file-handlers (intern-soft (format "url-dav-%s" op)))) |
| 935 | 935 |
| 936 (mapcar 'url-dav-register-handler | 936 (mapc 'url-dav-register-handler |
| 937 ;; These handlers are disabled because they incorrectly presume that | 937 ;; These handlers are disabled because they incorrectly presume that |
| 938 ;; the URL specifies an HTTP location and thus break FTP URLs. | 938 ;; the URL specifies an HTTP location and thus break FTP URLs. |
| 939 '(;; file-name-all-completions | 939 '(;; file-name-all-completions |
| 940 ;; file-name-completion | 940 ;; file-name-completion |
| 941 ;; rename-file | 941 ;; rename-file |
| 942 ;; make-directory | 942 ;; make-directory |
| 943 ;; file-directory-p | 943 ;; file-directory-p |
| 944 ;; directory-files | 944 ;; directory-files |
| 945 ;; delete-file | 945 ;; delete-file |
| 946 ;; delete-directory | 946 ;; delete-directory |
| 947 ;; file-attributes | 947 ;; file-attributes |
| 948 )) | 948 )) |
| 949 | 949 |
| 950 | 950 |
| 951 ;;; Version Control backend cruft | 951 ;;; Version Control backend cruft |
| 952 | 952 |
| 953 ;(put 'vc-registered 'url-file-handlers 'url-dav-vc-registered) | 953 ;(put 'vc-registered 'url-file-handlers 'url-dav-vc-registered) |