aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/url
diff options
context:
space:
mode:
authorGlenn Morris2007-08-08 07:27:21 +0000
committerGlenn Morris2007-08-08 07:27:21 +0000
commit3ecd3a56c0b0d9453272308be2aae4fca444e9f3 (patch)
tree598e888ff354bd38c9a6e819d200bca004e34229 /lisp/url
parentdf26688bd008d27830c166dbc3caccad7e83da0f (diff)
downloademacs-3ecd3a56c0b0d9453272308be2aae4fca444e9f3.tar.gz
emacs-3ecd3a56c0b0d9453272308be2aae4fca444e9f3.zip
Replace `iff' in doc-strings and comments.
Diffstat (limited to 'lisp/url')
-rw-r--r--lisp/url/url-auth.el2
-rw-r--r--lisp/url/url-cache.el2
-rw-r--r--lisp/url/url-dav.el6
-rw-r--r--lisp/url/url-file.el2
-rw-r--r--lisp/url/vc-dav.el2
5 files changed, 7 insertions, 7 deletions
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index c57a96cc81b..030409c3391 100644
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -310,7 +310,7 @@ RATING a rating between 1 and 10 of the strength of the authentication.
310 url-registered-auth-schemes))))) 310 url-registered-auth-schemes)))))
311 311
312(defun url-auth-registered (scheme) 312(defun url-auth-registered (scheme)
313 ;; Return non-nil iff SCHEME is registered as an auth type 313 "Return non-nil if SCHEME is registered as an auth type."
314 (assoc scheme url-registered-auth-schemes)) 314 (assoc scheme url-registered-auth-schemes))
315 315
316(provide 'url-auth) 316(provide 'url-auth)
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el
index 8fbe01d472a..6db30eacda9 100644
--- a/lisp/url/url-cache.el
+++ b/lisp/url/url-cache.el
@@ -186,7 +186,7 @@ Very fast if you have an `md5' primitive function, suitably fast otherwise."
186 186
187;;;###autoload 187;;;###autoload
188(defun url-cache-expired (url mod) 188(defun url-cache-expired (url mod)
189 "Return t iff a cached file has expired." 189 "Return t if a cached file has expired."
190 (let* ((urlobj (if (vectorp url) url (url-generic-parse-url url))) 190 (let* ((urlobj (if (vectorp url) url (url-generic-parse-url url)))
191 (type (url-type urlobj))) 191 (type (url-type urlobj)))
192 (cond 192 (cond
diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el
index afae0041b68..b58c1672865 100644
--- a/lisp/url/url-dav.el
+++ b/lisp/url/url-dav.el
@@ -562,7 +562,7 @@ FAILURE-RESULTS is a list of (URL STATUS)."
562 562
563(defun url-dav-unlock-resource (url lock-token) 563(defun url-dav-unlock-resource (url lock-token)
564 "Release the lock on URL represented by LOCK-TOKEN. 564 "Release the lock on URL represented by LOCK-TOKEN.
565Returns t iff the lock was successfully released." 565Returns t if the lock was successfully released."
566 (declare (special url-http-response-status)) 566 (declare (special url-http-response-status))
567 (let* ((url-request-extra-headers (list (cons "Lock-Token" 567 (let* ((url-request-extra-headers (list (cons "Lock-Token"
568 (concat "<" lock-token ">")))) 568 (concat "<" lock-token ">"))))
@@ -654,13 +654,13 @@ Returns t iff the lock was successfully released."
654 (or (plist-get properties 'DAV:getcontentlength) 0) 654 (or (plist-get properties 'DAV:getcontentlength) 0)
655 655
656 ;; file modes as a string like `ls -l' 656 ;; file modes as a string like `ls -l'
657 ;; 657 ;;
658 ;; Should be able to build this up from the 658 ;; Should be able to build this up from the
659 ;; DAV:supportedlock attribute pretty easily. Getting 659 ;; DAV:supportedlock attribute pretty easily. Getting
660 ;; the group info could be impossible though. 660 ;; the group info could be impossible though.
661 (url-dav-file-attributes-mode-string properties) 661 (url-dav-file-attributes-mode-string properties)
662 662
663 ;; t iff file's gid would change if it were deleted & 663 ;; t if file's gid would change if it were deleted &
664 ;; recreated. No way for us to know that thru DAV. 664 ;; recreated. No way for us to know that thru DAV.
665 nil 665 nil
666 666
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el
index e899493f1ce..6e771c9cd69 100644
--- a/lisp/url/url-file.el
+++ b/lisp/url/url-file.el
@@ -52,7 +52,7 @@ to them."
52 found)) 52 found))
53 53
54(defun url-file-host-is-local-p (host) 54(defun url-file-host-is-local-p (host)
55 "Return t iff HOST references our local machine." 55 "Return t if HOST references our local machine."
56 (let ((case-fold-search t)) 56 (let ((case-fold-search t))
57 (or 57 (or
58 (null host) 58 (null host)
diff --git a/lisp/url/vc-dav.el b/lisp/url/vc-dav.el
index ce0d3275a5f..7e9b6606ca4 100644
--- a/lisp/url/vc-dav.el
+++ b/lisp/url/vc-dav.el
@@ -31,7 +31,7 @@
31 31
32;;; Required functions for a vc backend 32;;; Required functions for a vc backend
33(defun vc-dav-registered (url) 33(defun vc-dav-registered (url)
34 "Return t iff URL is registered with a DAV aware server." 34 "Return t if URL is registered with a DAV aware server."
35 (url-dav-vc-registered url)) 35 (url-dav-vc-registered url))
36 36
37(defun vc-dav-state (url) 37(defun vc-dav-state (url)