Mercurial > emacs
changeset 78486:f0a07da7dd45
Replace `iff' in doc-strings and comments.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 08 Aug 2007 07:27:37 +0000 |
| parents | 847fd0fda811 |
| children | 419c5c316b51 |
| files | lisp/gnus/gmm-utils.el lisp/gnus/gnus-async.el lisp/gnus/gnus-msg.el lisp/gnus/gnus-score.el lisp/gnus/gnus-util.el lisp/gnus/imap.el lisp/gnus/mailcap.el lisp/gnus/nnimap.el |
| diffstat | 8 files changed, 13 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gmm-utils.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/gmm-utils.el Wed Aug 08 07:27:37 2007 +0000 @@ -79,7 +79,7 @@ ;;;###autoload (defun gmm-widget-p (symbol) - "Non-nil iff SYMBOL is a widget." + "Non-nil if SYMBOL is a widget." (get symbol 'widget-type)) ;; Copy of the `nnmail-lazy' code from `nnmail.el':
--- a/lisp/gnus/gnus-async.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/gnus-async.el Wed Aug 08 07:27:37 2007 +0000 @@ -320,7 +320,7 @@ (pop alist)))))) (defun gnus-async-prefetched-article-entry (group article) - "Return the entry for ARTICLE in GROUP iff it has been prefetched." + "Return the entry for ARTICLE in GROUP if it has been prefetched." (let ((entry (save-excursion (gnus-async-set-buffer) (assq (intern (format "%s-%d" group article)
--- a/lisp/gnus/gnus-msg.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/gnus-msg.el Wed Aug 08 07:27:37 2007 +0000 @@ -260,15 +260,15 @@ This is done because new users often reply by mistake when reading news. This can also be a function receiving the group name as the only -parameter which should return non-nil iff a confirmation is needed, or -a regexp, in which case a confirmation is asked for iff the group name +parameter, which should return non-nil if a confirmation is needed; or +a regexp, in which case a confirmation is asked for if the group name matches the regexp." :version "22.1" :group 'gnus-message :type '(choice (const :tag "No" nil) (const :tag "Yes" t) - (regexp :tag "Iff group matches regexp") - (function :tag "Iff function evaluates to non-nil"))) + (regexp :tag "If group matches regexp") + (function :tag "If function evaluates to non-nil"))) (defcustom gnus-confirm-treat-mail-like-news nil
--- a/lisp/gnus/gnus-score.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/gnus-score.el Wed Aug 08 07:27:37 2007 +0000 @@ -381,7 +381,7 @@ (const :tag "ask" nil))) (defcustom gnus-score-default-fold nil - "Use case folding for new score file entries iff not nil." + "Non-nil means use case folding for new score file entries." :group 'gnus-score-default :type 'boolean)
--- a/lisp/gnus/gnus-util.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/gnus-util.el Wed Aug 08 07:27:37 2007 +0000 @@ -1108,7 +1108,7 @@ `(setq ,alist (delq (,fun ,key ,alist) ,alist)))) (defun gnus-globalify-regexp (re) - "Return a regexp that matches a whole line, iff RE matches a part of it." + "Return a regexp that matches a whole line, if RE matches a part of it." (concat (unless (string-match "^\\^" re) "^.*") re (unless (string-match "\\$$" re) ".*$")))
--- a/lisp/gnus/imap.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/imap.el Wed Aug 08 07:27:37 2007 +0000 @@ -1581,7 +1581,7 @@ (imap-mailbox-get-1 'search imap-current-mailbox))))) (defun imap-message-flag-permanent-p (flag &optional mailbox buffer) - "Return t iff FLAG can be permanently (between IMAP sessions) saved on articles, in MAILBOX on server in BUFFER." + "Return t if FLAG can be permanently (between IMAP sessions) saved on articles, in MAILBOX on server in BUFFER." (with-current-buffer (or buffer (current-buffer)) (or (member "\\*" (imap-mailbox-get 'permanentflags mailbox)) (member flag (imap-mailbox-get 'permanentflags mailbox)))))
--- a/lisp/gnus/mailcap.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/mailcap.el Wed Aug 08 07:27:37 2007 +0000 @@ -538,7 +538,7 @@ results))) (defun mailcap-mailcap-entry-passes-test (info) - "Return non-nil iff mailcap entry INFO passes its test clause. + "Return non-nil if mailcap entry INFO passes its test clause. Also return non-nil if no test clause is present." (let ((test (assq 'test info)) ; The test clause status) @@ -631,7 +631,7 @@ (defvar mailcap-viewer-test-cache nil) (defun mailcap-viewer-passes-test (viewer-info type-info) - "Return non-nil iff viewer specified by VIEWER-INFO passes its test clause. + "Return non-nil if viewer specified by VIEWER-INFO passes its test clause. Also return non-nil if it has no test clause. TYPE-INFO is an argument to supply to the test." (let* ((test-info (assq 'test viewer-info)) @@ -704,7 +704,7 @@ ;;; (defun mailcap-viewer-lessp (x y) - "Return t iff viewer X is more desirable than viewer Y." + "Return t if viewer X is more desirable than viewer Y." (let ((x-wild (string-match "[*?]" (or (cdr-safe (assq 'type x)) ""))) (y-wild (string-match "[*?]" (or (cdr-safe (assq 'type y)) ""))) (x-lisp (not (stringp (or (cdr-safe (assq 'viewer x)) ""))))
--- a/lisp/gnus/nnimap.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/nnimap.el Wed Aug 08 07:27:37 2007 +0000 @@ -1645,7 +1645,7 @@ result))) (defun nnimap-mark-permanent-p (mark &optional group) - "Return t iff MARK can be permanently (between IMAP sessions) saved on articles, in GROUP." + "Return t if MARK can be permanently (between IMAP sessions) saved on articles, in GROUP." (imap-message-flag-permanent-p (nnimap-mark-to-flag mark))) (when nnimap-debug