Replace `iff' in doc-strings and comments.
This commit is contained in:
parent
df26688bd0
commit
3ecd3a56c0
20 changed files with 40 additions and 30 deletions
|
|
@ -1,3 +1,9 @@
|
|||
2007-08-08 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* gmm-utils.el, gnus-async.el, gnus-msg.el, gnus-score.el
|
||||
* gnus-util.el, imap.el, mailcap.el, nnimap.el: Replace `iff' in
|
||||
doc-strings and comments.
|
||||
|
||||
2007-07-25 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* Relicense all FSF files to GPLv3 or later.
|
||||
|
|
|
|||
|
|
@ -215,8 +215,8 @@
|
|||
;; Return t if substring of STR (between FROM and TO) can be broken up
|
||||
;; to chunks all of which can be derived from another entry in SKK
|
||||
;; dictionary. SKKBUF is the buffer where the original SKK dictionary
|
||||
;; is visited, KANA is the current entry for STR. FIRST is t iff this
|
||||
;; is called at top level.
|
||||
;; is visited, KANA is the current entry for STR. FIRST is t only if
|
||||
;; this is called at top level.
|
||||
|
||||
(defun skkdic-breakup-string (skkbuf kana str from to &optional first)
|
||||
(let ((len (- to from)))
|
||||
|
|
|
|||
|
|
@ -777,9 +777,9 @@ use either \\[customize] or the function `latin1-display'."
|
|||
"Set up Latin-1/ASCII display for Unicode characters.
|
||||
This uses the transliterations of the Lynx browser.
|
||||
|
||||
With argument ARG, turn such display on iff ARG is positive, otherwise
|
||||
With argument ARG, turn such display on if ARG is positive, otherwise
|
||||
turn it off and display Unicode characters literally. The display
|
||||
is't changed if the display can render Unicode characters."
|
||||
isn't changed if the display can render Unicode characters."
|
||||
(interactive "p")
|
||||
(if (> arg 0)
|
||||
(unless (char-displayable-p
|
||||
|
|
|
|||
|
|
@ -445,11 +445,11 @@ non-nil, it is used to sort CODINGS instead."
|
|||
(let ((base (coding-system-base x)))
|
||||
;; We calculate the priority number 0..255 by
|
||||
;; using the 8 bits PMMLCEII as this:
|
||||
;; P: 1 iff most preferred.
|
||||
;; MM: greater than 0 iff mime-charset.
|
||||
;; L: 1 iff one of the current lang. env.'s codings.
|
||||
;; C: 1 iff one of codings listed in the category list.
|
||||
;; E: 1 iff not XXX-with-esc
|
||||
;; P: 1 if most preferred.
|
||||
;; MM: greater than 0 if mime-charset.
|
||||
;; L: 1 if one of the current lang. env.'s codings.
|
||||
;; C: 1 if one of codings listed in the category list.
|
||||
;; E: 1 if not XXX-with-esc
|
||||
;; II: if iso-2022 based, 0..3, else 1.
|
||||
(logior
|
||||
(lsh (if (eq base most-preferred) 1 0) 7)
|
||||
|
|
|
|||
|
|
@ -1942,7 +1942,7 @@ Remaining args are for FUNC."
|
|||
(overlay-put quail-overlay 'face 'highlight))))
|
||||
|
||||
(defun quail-require-guidance-buf ()
|
||||
"Return t iff the current Quail package requires showing guidance buffer."
|
||||
"Return t if the current Quail package requires showing guidance buffer."
|
||||
(and input-method-verbose-flag
|
||||
(if (eq input-method-verbose-flag 'default)
|
||||
(not (and (eq (selected-window) (minibuffer-window))
|
||||
|
|
|
|||
|
|
@ -230,7 +230,7 @@ Handles wrapped and horizontally scrolled lines correctly."
|
|||
|
||||
|
||||
(defun minibuffer-window-p (window)
|
||||
"True iff this WINDOW is minibuffer."
|
||||
"True if this WINDOW is minibuffer."
|
||||
(= (frame-height)
|
||||
(nth 3 (window-edges window)) ; The bottom edge.
|
||||
))
|
||||
|
|
|
|||
|
|
@ -106,8 +106,8 @@
|
|||
|
||||
;;; Should keypad numbers send ordinary digits or distinct escape sequences?
|
||||
(defvar tvi970-keypad-numeric nil
|
||||
"The terminal should be in numeric keypad mode iff this variable is non-nil.
|
||||
Do not set this variable! Call the function ``tvi970-set-keypad-mode''.")
|
||||
"Non-nil means the terminal should be in numeric keypad mode.
|
||||
Do not set this variable! Call the function `tvi970-set-keypad-mode'.")
|
||||
|
||||
(defun tvi970-set-keypad-mode (&optional arg)
|
||||
"Set the current mode of the TVI 970 numeric keypad.
|
||||
|
|
|
|||
|
|
@ -1768,7 +1768,7 @@ info-variant-part."
|
|||
;; Macro that won't funcall the function if it is nil.
|
||||
;;
|
||||
(defmacro artist-funcall (fn &rest args)
|
||||
"Call function FN with ARGS iff FN is not nil."
|
||||
"Call function FN with ARGS, if FN is not nil."
|
||||
(list 'if fn (cons 'funcall (cons fn args))))
|
||||
|
||||
(defun artist-uniq (l)
|
||||
|
|
|
|||
|
|
@ -457,7 +457,8 @@ See also `flyspell-duplicate-distance'."
|
|||
This spawns a single Ispell process and checks each word.
|
||||
The default flyspell behavior is to highlight incorrect words.
|
||||
With no argument, this command toggles Flyspell mode.
|
||||
With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive.
|
||||
With a prefix argument ARG, turn Flyspell minor mode on if ARG is positive,
|
||||
otherwise turn it off.
|
||||
|
||||
Bindings:
|
||||
\\[ispell-word]: correct words (using Ispell).
|
||||
|
|
@ -1621,7 +1622,7 @@ FLYSPELL-BUFFER."
|
|||
;;* flyspell-overlay-p ... */
|
||||
;;*---------------------------------------------------------------------*/
|
||||
(defun flyspell-overlay-p (o)
|
||||
"A predicate that return true iff O is an overlay used by flyspell."
|
||||
"Return true if O is an overlay used by flyspell."
|
||||
(and (overlayp o) (overlay-get o 'flyspell-overlay)))
|
||||
|
||||
;;*---------------------------------------------------------------------*/
|
||||
|
|
|
|||
|
|
@ -3324,7 +3324,8 @@ available on the net."
|
|||
;;;###autoload
|
||||
(defun ispell-minor-mode (&optional arg)
|
||||
"Toggle Ispell minor mode.
|
||||
With prefix arg, turn Ispell minor mode on iff arg is positive.
|
||||
With prefix argument ARG, turn Ispell minor mode on if ARG is positive,
|
||||
otherwise turn it off.
|
||||
|
||||
In Ispell minor mode, pressing SPC or RET
|
||||
warns you if the previous word is incorrectly spelled.
|
||||
|
|
|
|||
|
|
@ -261,7 +261,7 @@ automatically inserts the matching closing request after point."
|
|||
`nroff-electric-newline' forces Emacs to check for an nroff request at the
|
||||
beginning of the line, and insert the matching closing request if necessary.
|
||||
This command toggles that mode (off->on, on->off), with an argument,
|
||||
turns it on iff arg is positive, otherwise off."
|
||||
turns it on if arg is positive, otherwise off."
|
||||
:lighter " Electric"
|
||||
(or (derived-mode-p 'nroff-mode) (error "Must be in nroff mode")))
|
||||
|
||||
|
|
|
|||
|
|
@ -217,7 +217,7 @@ complex processing.")
|
|||
;;;###autoload
|
||||
(define-minor-mode refill-mode
|
||||
"Toggle Refill minor mode.
|
||||
With prefix arg, turn Refill mode on iff arg is positive.
|
||||
With prefix arg, turn Refill mode on if arg is positive, otherwise turn it off.
|
||||
|
||||
When Refill mode is on, the current paragraph will be formatted when
|
||||
changes are made within it. Self-inserting characters only cause
|
||||
|
|
|
|||
|
|
@ -431,7 +431,7 @@ the current TeX document.
|
|||
|
||||
With no argument, this command toggles
|
||||
`reftex-isearch-minor-mode'. With a prefix argument ARG, turn
|
||||
`reftex-isearch-minor-mode' on iff ARG is positive."
|
||||
`reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off."
|
||||
(interactive "P")
|
||||
(let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode))
|
||||
(setq reftex-isearch-minor-mode
|
||||
|
|
|
|||
|
|
@ -757,7 +757,7 @@ With prefix argument ARG, repeat this ARG times."
|
|||
(defun sgml-skip-tag-forward (arg)
|
||||
"Skip to end of tag or matching closing tag if present.
|
||||
With prefix argument ARG, repeat this ARG times.
|
||||
Return t iff after a closing tag."
|
||||
Return t if after a closing tag."
|
||||
(interactive "p")
|
||||
;; FIXME: Use sgml-get-context or something similar.
|
||||
;; It currently might jump to an unrelated </P> if the <P>
|
||||
|
|
|
|||
|
|
@ -561,8 +561,10 @@ off trailing spaces with \\[delete-trailing-whitespace]."
|
|||
(newline arg))
|
||||
|
||||
(defun 2C-toggle-autoscroll (arg)
|
||||
"Toggle autoscrolling, or set it iff prefix ARG is non-nil and positive.
|
||||
When autoscrolling is turned on, this also realigns the two buffers."
|
||||
"Toggle autoscrolling.
|
||||
With prefix argument ARG, turn on autoscrolling if ARG is
|
||||
positive, otherwise turn it off. When autoscrolling is turned
|
||||
on, this also realigns the two buffers."
|
||||
(interactive "P")
|
||||
;(sit-for 0)
|
||||
(setq 2C-autoscroll-start (window-start))
|
||||
|
|
|
|||
|
|
@ -310,7 +310,7 @@ RATING a rating between 1 and 10 of the strength of the authentication.
|
|||
url-registered-auth-schemes)))))
|
||||
|
||||
(defun url-auth-registered (scheme)
|
||||
;; Return non-nil iff SCHEME is registered as an auth type
|
||||
"Return non-nil if SCHEME is registered as an auth type."
|
||||
(assoc scheme url-registered-auth-schemes))
|
||||
|
||||
(provide 'url-auth)
|
||||
|
|
|
|||
|
|
@ -186,7 +186,7 @@ Very fast if you have an `md5' primitive function, suitably fast otherwise."
|
|||
|
||||
;;;###autoload
|
||||
(defun url-cache-expired (url mod)
|
||||
"Return t iff a cached file has expired."
|
||||
"Return t if a cached file has expired."
|
||||
(let* ((urlobj (if (vectorp url) url (url-generic-parse-url url)))
|
||||
(type (url-type urlobj)))
|
||||
(cond
|
||||
|
|
|
|||
|
|
@ -562,7 +562,7 @@ FAILURE-RESULTS is a list of (URL STATUS)."
|
|||
|
||||
(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."
|
||||
Returns t if the lock was successfully released."
|
||||
(declare (special url-http-response-status))
|
||||
(let* ((url-request-extra-headers (list (cons "Lock-Token"
|
||||
(concat "<" lock-token ">"))))
|
||||
|
|
@ -654,13 +654,13 @@ Returns t iff the lock was successfully released."
|
|||
(or (plist-get properties 'DAV:getcontentlength) 0)
|
||||
|
||||
;; file modes as a string like `ls -l'
|
||||
;;
|
||||
;;
|
||||
;; Should be able to build this up from the
|
||||
;; DAV:supportedlock attribute pretty easily. Getting
|
||||
;; the group info could be impossible though.
|
||||
(url-dav-file-attributes-mode-string properties)
|
||||
|
||||
;; t iff file's gid would change if it were deleted &
|
||||
;; t if file's gid would change if it were deleted &
|
||||
;; recreated. No way for us to know that thru DAV.
|
||||
nil
|
||||
|
||||
|
|
|
|||
|
|
@ -52,7 +52,7 @@ to them."
|
|||
found))
|
||||
|
||||
(defun url-file-host-is-local-p (host)
|
||||
"Return t iff HOST references our local machine."
|
||||
"Return t if HOST references our local machine."
|
||||
(let ((case-fold-search t))
|
||||
(or
|
||||
(null host)
|
||||
|
|
|
|||
|
|
@ -31,7 +31,7 @@
|
|||
|
||||
;;; Required functions for a vc backend
|
||||
(defun vc-dav-registered (url)
|
||||
"Return t iff URL is registered with a DAV aware server."
|
||||
"Return t if URL is registered with a DAV aware server."
|
||||
(url-dav-vc-registered url))
|
||||
|
||||
(defun vc-dav-state (url)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue