[Emacs-diffs] Changes to emacs/lisp/url/url-dav.el

[Stefan Monnier]

Index: emacs/lisp/url/url-dav.el
diff -c emacs/lisp/url/url-dav.el:1.7 emacs/lisp/url/url-dav.el:1.8
*** emacs/lisp/url/url-dav.el:1.7       Mon May 16 10:07:31 2005
--- emacs/lisp/url/url-dav.el   Fri Jun 10 22:02:23 2005
***************
*** 457,463 ****
               "</" (symbol-name tag) ">\n"))))
      (url-dav-process-response (url-retrieve-synchronously url) url)))
  
- ;;;###autoload
  (defun url-dav-get-properties (url &optional attributes depth namespaces)
    "Return properties for URL, up to DEPTH levels deep.
  
--- 457,462 ----
***************
*** 487,493 ****
  to other users when the DAV:lockdiscovery property is requested, so
  make sure you are comfortable with it leaking to the outside world.")
  
- ;;;###autoload
  (defun url-dav-lock-resource (url exclusive &optional depth)
    "Request a lock on URL.  If EXCLUSIVE is non-nil, get an exclusive lock.
  Optional 3rd argument DEPTH says how deep the lock should go, default is 0
--- 486,491 ----
***************
*** 528,534 ****
        (push (list url child-status) failures)))
      (cons successes failures)))
  
- ;;;###autoload
  (defun url-dav-active-locks (url &optional depth)
    "Return an assoc list of all active locks on URL."
    (let ((response (url-dav-get-properties url '(DAV:lockdiscovery) depth))
--- 526,531 ----
***************
*** 563,569 ****
                results)))
      results))
  
- ;;;###autoload
  (defun url-dav-unlock-resource (url lock-token)
    "Release the lock on URL represented by LOCK-TOKEN.
  Returns t iff the lock was successfully released."
--- 560,565 ----
***************
*** 624,630 ****
  
  (autoload 'url-http-head-file-attributes "url-http")
  
- ;;;###autoload
  (defun url-dav-file-attributes (url &optional id-format)
    (let ((properties (cdar (url-dav-get-properties url)))
        (attributes nil))
--- 620,625 ----
***************
*** 680,686 ****
        (setq attributes (url-http-head-file-attributes url id-format)))
      attributes))
  
- ;;;###autoload
  (defun url-dav-save-resource (url obj &optional content-type lock-token)
    "Save OBJ as URL using WebDAV.
  URL must be a fully qualified URL.
--- 675,680 ----
***************
*** 736,742 ****
                                   (concat "(<" ,lock-token ">)"))))))))
  
  
- ;;;###autoload
  (defun url-dav-delete-directory (url &optional recursive lock-token)
    "Delete the WebDAV collection URL.
  If optional second argument RECURSIVE is non-nil, then delete all
--- 730,735 ----
***************
*** 761,767 ****
           props))
    nil)
  
- ;;;###autoload
  (defun url-dav-delete-file (url &optional lock-token)
    "Delete file named URL."
    (let ((props nil)
--- 754,759 ----
***************
*** 781,787 ****
          props))
    nil)
  
- ;;;###autoload
  (defun url-dav-directory-files (url &optional full match nosort files-only)
    "Return a list of names of files in DIRECTORY.
  There are three optional arguments:
--- 773,778 ----
***************
*** 828,840 ****
        files
        (sort files 'string-lessp))))
  
- ;;;###autoload
  (defun url-dav-file-directory-p (url)
    "Return t if URL names an existing DAV collection."
    (let ((properties (cdar (url-dav-get-properties url '(DAV:resourcetype)))))
      (eq (plist-get properties 'DAV:resourcetype) 'DAV:collection)))
  
- ;;;###autoload
  (defun url-dav-make-directory (url &optional parents)
    "Create the directory DIR and any nonexistent parent dirs."
    (declare (special url-http-response-status))
--- 819,829 ----
***************
*** 864,870 ****
        (kill-buffer buffer)))
      result))
  
- ;;;###autoload
  (defun url-dav-rename-file (oldname newname &optional overwrite)
    (if (not (and (string-match url-handler-regexp oldname)
                (string-match url-handler-regexp newname)))
--- 853,858 ----
***************
*** 905,917 ****
          props)
      t))
  
- ;;;###autoload
  (defun url-dav-file-name-all-completions (file url)
    "Return a list of all completions of file name FILE in directory DIRECTORY.
  These are all file names in directory DIRECTORY which begin with FILE."
    (url-dav-directory-files url nil (concat "^" file ".*")))
  
- ;;;###autoload
  (defun url-dav-file-name-completion (file url)
    "Complete file name FILE in directory DIRECTORY.
  Returns the longest string
--- 893,903 ----
***************
*** 951,965 ****
    (put op 'url-file-handlers (intern-soft (format "url-dav-%s" op))))
  
  (mapcar 'url-dav-register-handler
!       '(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
--- 937,954 ----
    (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
!           ))
  
  
  ;;; Version Control backend cruft