Mercurial > emacs
diff lisp/url/url-dav.el @ 96486:7369ded3b436
Typo and docstring fixes.
* url.el (url-do-setup):
* url-dired.el (url-dired-minor-mode):
* url-file.el (url-file-find-possibly-compressed-file):
* url-gw.el (url-gateway-broken-resolution):
* url-handlers.el (url-handler-regexp):
* url-imap.el (url-imap-default-port):
* url-methods.el (url-scheme-get-property): Fix typos in docstrings.
* url-auth.el (url-basic-auth-storage, url-digest-auth):
Fix typos in docstrings.
(url-digest-auth-storage, url-register-auth-scheme): Reflow docstrings.
* url-cache.el (url-cache-prepare): Doc fix.
(url-cache-create-filename-human-readable, url-cache-extract):
Fix typos in docstrings.
* url-dav.el (url-intersection, url-dav-iso8601-regexp)
(url-dav-delete-something): Fix typos in docstrings.
(url-dav-http-success-p, url-dav-file-name-all-completions)
(url-dav-directory-files, url-dav-file-name-completion): Doc fixes.
* url-http.el (url-http-idle-sentinel): Doc fix.
* url-irc.el (url-irc-default-port): Fix typo in docstring.
(url-irc-function): Doc fix.
* url-util.el (url-get-url-filename-chars, url-unhex-string):
Fix typos in docstrings.
(url-file-extension): Doc fix.
* url-vars.el (url-current-object, url-current-mime-headers)
(url-privacy-level, url-mail-command, url-mime-language-string):
Fix typos in docstrings.
(url-honor-refresh-requests): Reflow docstring.
(url-using-proxy): Doc fix.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Wed, 02 Jul 2008 11:14:38 +0000 |
parents | 8259d0d8e107 |
children | a9dc0e7c3f2b |
line wrap: on
line diff
--- a/lisp/url/url-dav.el Wed Jul 02 03:12:14 2008 +0000 +++ b/lisp/url/url-dav.el Wed Jul 02 11:14:38 2008 +0000 @@ -38,7 +38,7 @@ "List of supported DAV versions.") (defun url-intersection (l1 l2) - "Return a list of the elements occuring in both of the lists L1 and L2." + "Return a list of the elements occurring in both of the lists L1 and L2." (if (null l2) l2 (let (result) @@ -100,7 +100,7 @@ (list (concat "^" full-date) (concat "T" partial-time) (concat "Z" time-numoffset))) - "List of regular expressions matching iso8601 dates. + "List of regular expressions matching ISO 8601 dates. 1st regular expression matches the date. 2nd regular expression matches the time. 3rd regular expression matches the (optional) timezone specification.") @@ -472,7 +472,7 @@ depth nil namespaces)) (defmacro url-dav-http-success-p (status) - "Return whether PROPERTIES was the result of a successful DAV request." + "Return whether STATUS was the result of a successful DAV request." `(= (/ (or ,status 500) 100) 2)) @@ -714,8 +714,7 @@ (defmacro url-dav-delete-something (url lock-token &rest error-checking) "Delete URL completely, with no sanity checking whatsoever. DO NOT USE. This is defined as a macro that will not be visible from compiled files. -Use with care, and even then think three times. -" +Use with care, and even then think three times." `(progn ,@error-checking (url-dav-request ,url "DELETE" nil nil -1 @@ -769,7 +768,7 @@ nil) (defun url-dav-directory-files (url &optional full match nosort files-only) - "Return a list of names of files in DIRECTORY. + "Return a list of names of files in URL. There are three optional arguments: If FULL is non-nil, return absolute file names. Otherwise return names that are relative to the specified directory. @@ -889,16 +888,16 @@ t)) (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." + "Return a list of all completions of file name FILE in URL. +These are all file names in URL which begin with FILE." (url-dav-directory-files url nil (concat "^" file ".*"))) (defun url-dav-file-name-completion (file url) - "Complete file name FILE in directory DIRECTORY. -Returns the longest string -common to all file names in DIRECTORY that start with FILE. + "Complete file name FILE in URL. +Returns the longest string common to all file names in URL +that start with FILE. If there is only one and FILE matches it exactly, returns t. -Returns nil if DIR contains no name starting with FILE." +Returns nil if URL contains no name starting with FILE." (let ((matches (url-dav-file-name-all-completions file url)) (result nil)) (cond