1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00

Replace `iff' in doc-strings and comments.

This commit is contained in:
Glenn Morris 2007-08-08 07:40:09 +00:00
parent 5453fa4112
commit 4837b516ea
40 changed files with 108 additions and 94 deletions

View File

@ -39,9 +39,9 @@ define global abbrevs instead."
(defun abbrev-mode (&optional arg) (defun abbrev-mode (&optional arg)
"Toggle Abbrev mode in the current buffer. "Toggle Abbrev mode in the current buffer.
With argument ARG, turn abbrev mode on iff ARG is positive. With optional argument ARG, turn abbrev mode on if ARG is
In Abbrev mode, inserting an abbreviation causes it to expand positive, otherwise turn it off. In Abbrev mode, inserting an
and be replaced by its expansion." abbreviation causes it to expand and be replaced by its expansion."
(interactive "P") (interactive "P")
(setq abbrev-mode (setq abbrev-mode
(if (null arg) (not abbrev-mode) (if (null arg) (not abbrev-mode)

View File

@ -1658,8 +1658,9 @@ the following two lines in your Emacs init file:
"Toggle minor mode for controlling exposure and editing of text outlines. "Toggle minor mode for controlling exposure and editing of text outlines.
\\<allout-mode-map> \\<allout-mode-map>
Optional arg forces mode to re-initialize iff arg is positive num or Optional prefix argument TOGGLE forces the mode to re-initialize
symbol. Allout outline mode always runs as a minor mode. if it is positive, otherwise it turns the mode off. Allout
outline mode always runs as a minor mode.
Allout outline mode provides extensive outline oriented formatting and Allout outline mode provides extensive outline oriented formatting and
manipulation. It enables structural editing of outlines, as well as manipulation. It enables structural editing of outlines, as well as

View File

@ -315,7 +315,7 @@ This function is designed to be added to hooks, for example:
;;;###autoload ;;;###autoload
(define-minor-mode auto-revert-tail-mode (define-minor-mode auto-revert-tail-mode
"Toggle reverting tail of buffer when file on disk grows. "Toggle reverting tail of buffer when file on disk grows.
With arg, turn Tail mode on iff arg is positive. With arg, turn Tail mode on if arg is positive, otherwise turn it off.
When Tail mode is enabled, the tail of the file is constantly When Tail mode is enabled, the tail of the file is constantly
followed, as with the shell command `tail -f'. This means that followed, as with the shell command `tail -f'. This means that

View File

@ -476,7 +476,7 @@ Menu of mode operations in the mode line.")
(defvar minor-mode-alist nil "\ (defvar minor-mode-alist nil "\
Alist saying how to show minor modes in the mode line. Alist saying how to show minor modes in the mode line.
Each element looks like (VARIABLE STRING); Each element looks like (VARIABLE STRING);
STRING is included in the mode line iff VARIABLE's value is non-nil. STRING is included in the mode line if VARIABLE's value is non-nil.
Actually, STRING need not be a string; any possible mode-line element Actually, STRING need not be a string; any possible mode-line element
is okay. See `mode-line-format'.") is okay. See `mode-line-format'.")

View File

@ -642,7 +642,7 @@ this sets the local binding in that buffer instead."
(funcall variable (if value 1 0)))) (funcall variable (if value 1 0))))
(defun custom-quote (sexp) (defun custom-quote (sexp)
"Quote SEXP iff it is not self quoting." "Quote SEXP if it is not self quoting."
(if (or (memq sexp '(t nil)) (if (or (memq sexp '(t nil))
(keywordp sexp) (keywordp sexp)
(and (listp sexp) (and (listp sexp)
@ -665,14 +665,14 @@ default value. Otherwise, set it to nil.
To actually save the value, call `custom-save-all'. To actually save the value, call `custom-save-all'.
Return non-nil iff the `saved-value' property actually changed." Return non-nil if the `saved-value' property actually changed."
(custom-load-symbol symbol) (custom-load-symbol symbol)
(let* ((get (or (get symbol 'custom-get) 'default-value)) (let* ((get (or (get symbol 'custom-get) 'default-value))
(value (funcall get symbol)) (value (funcall get symbol))
(saved (get symbol 'saved-value)) (saved (get symbol 'saved-value))
(standard (get symbol 'standard-value)) (standard (get symbol 'standard-value))
(comment (get symbol 'customized-variable-comment))) (comment (get symbol 'customized-variable-comment)))
;; Save default value iff different from standard value. ;; Save default value if different from standard value.
(if (or (null standard) (if (or (null standard)
(not (equal value (condition-case nil (not (equal value (condition-case nil
(eval (car standard)) (eval (car standard))
@ -694,13 +694,13 @@ or else if it is different from the standard value, set the
`customized-value' property to a list whose car evaluates to the `customized-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil. default value. Otherwise, set it to nil.
Return non-nil iff the `customized-value' property actually changed." Return non-nil if the `customized-value' property actually changed."
(custom-load-symbol symbol) (custom-load-symbol symbol)
(let* ((get (or (get symbol 'custom-get) 'default-value)) (let* ((get (or (get symbol 'custom-get) 'default-value))
(value (funcall get symbol)) (value (funcall get symbol))
(customized (get symbol 'customized-value)) (customized (get symbol 'customized-value))
(old (or (get symbol 'saved-value) (get symbol 'standard-value)))) (old (or (get symbol 'saved-value) (get symbol 'standard-value))))
;; Mark default value as set iff different from old value. ;; Mark default value as set if different from old value.
(if (not (and old (if (not (and old
(equal value (condition-case nil (equal value (condition-case nil
(eval (car old)) (eval (car old))

View File

@ -62,7 +62,8 @@
(defun diff-sentinel (code) (defun diff-sentinel (code)
"Code run when the diff process exits. "Code run when the diff process exits.
CODE is the exit code of the process. It should be 0 iff no diffs were found." CODE is the exit code of the process. It should be 0 only if no diffs
were found."
(if diff-old-temp-file (delete-file diff-old-temp-file)) (if diff-old-temp-file (delete-file diff-old-temp-file))
(if diff-new-temp-file (delete-file diff-new-temp-file)) (if diff-new-temp-file (delete-file diff-new-temp-file))
(save-excursion (save-excursion

View File

@ -2006,8 +2006,8 @@ of marked files. If KILL-ROOT is non-nil, kill DIRNAME as well."
(defun dired-tree-lessp (dir1 dir2) (defun dired-tree-lessp (dir1 dir2)
;; Lexicographic order on file name components, like `ls -lR': ;; Lexicographic order on file name components, like `ls -lR':
;; DIR1 < DIR2 iff DIR1 comes *before* DIR2 in an `ls -lR' listing, ;; DIR1 < DIR2 if DIR1 comes *before* DIR2 in an `ls -lR' listing,
;; i.e., iff DIR1 is a (grand)parent dir of DIR2, ;; i.e., if DIR1 is a (grand)parent dir of DIR2,
;; or DIR1 and DIR2 are in the same parentdir and their last ;; or DIR1 and DIR2 are in the same parentdir and their last
;; components are string-lessp. ;; components are string-lessp.
;; Thus ("/usr/" "/usr/bin") and ("/usr/a/" "/usr/b/") are tree-lessp. ;; Thus ("/usr/" "/usr/bin") and ("/usr/a/" "/usr/b/") are tree-lessp.

View File

@ -186,7 +186,8 @@ use either \\[customize] or the function `double-mode'."
;;;###autoload ;;;###autoload
(defun double-mode (arg) (defun double-mode (arg)
"Toggle Double mode. "Toggle Double mode.
With prefix arg, turn Double mode on iff arg is positive. With prefix argument ARG, turn Double mode on if ARG is positive, otherwise
turn it off.
When Double mode is on, some keys will insert different strings When Double mode is on, some keys will insert different strings
when pressed twice. See variable `double-map' for details." when pressed twice. See variable `double-map' for details."

View File

@ -867,7 +867,7 @@ one optional arguments, diff-number to refine.")
(ediff-make-fine-diffs n 'noforce) (ediff-make-fine-diffs n 'noforce)
(ediff-make-fine-diffs n 'skip))) (ediff-make-fine-diffs n 'skip)))
;; highlight iff fine diffs already exist ;; highlight if fine diffs already exist
((eq ediff-auto-refine 'off) ((eq ediff-auto-refine 'off)
(ediff-make-fine-diffs n 'skip)))) (ediff-make-fine-diffs n 'skip))))
@ -1459,7 +1459,7 @@ arguments to `skip-chars-forward'."
(defun ediff-same-contents (d1 d2 &optional filter-re) (defun ediff-same-contents (d1 d2 &optional filter-re)
"Returns t iff D1 and D2 have the same content. "Return t if D1 and D2 have the same content.
D1 and D2 can either be both directories or both regular files. D1 and D2 can either be both directories or both regular files.
Symlinks and the likes are not handled. Symlinks and the likes are not handled.
If FILTER-RE is non-nil, recursive checking in directories If FILTER-RE is non-nil, recursive checking in directories

View File

@ -3941,8 +3941,9 @@ prints a message in the minibuffer. Instead, use `set-buffer-modified-p'."
(defun toggle-read-only (&optional arg) (defun toggle-read-only (&optional arg)
"Change whether this buffer is visiting its file read-only. "Change whether this buffer is visiting its file read-only.
With arg, set read-only iff arg is positive. With prefix argument ARG, make the buffer read-only if ARG is
If visiting file read-only and `view-read-only' is non-nil, enter view mode." positive, otherwise make it writable. If visiting file read-only
and `view-read-only' is non-nil, enter view mode."
(interactive "P") (interactive "P")
(if (and arg (if (and arg
(if (> (prefix-numeric-value arg) 0) buffer-read-only (if (> (prefix-numeric-value arg) 0) buffer-read-only
@ -4568,7 +4569,7 @@ FILENAME should lack slashes. You can redefine this for customization."
(defun wildcard-to-regexp (wildcard) (defun wildcard-to-regexp (wildcard)
"Given a shell file name pattern WILDCARD, return an equivalent regexp. "Given a shell file name pattern WILDCARD, return an equivalent regexp.
The generated regexp will match a filename iff the filename The generated regexp will match a filename only if the filename
matches that wildcard according to shell rules. Only wildcards known matches that wildcard according to shell rules. Only wildcards known
by `sh' are supported." by `sh' are supported."
(let* ((i (string-match "[[.*+\\^$?]" wildcard)) (let* ((i (string-match "[[.*+\\^$?]" wildcard))

View File

@ -355,7 +355,7 @@ Each element in a user-level keywords list should have one of these forms:
where MATCHER can be either the regexp to search for, or the function name to where MATCHER can be either the regexp to search for, or the function name to
call to make the search (called with one argument, the limit of the search; call to make the search (called with one argument, the limit of the search;
it should return non-nil, move point, and set `match-data' appropriately iff it should return non-nil, move point, and set `match-data' appropriately if
it succeeds; like `re-search-forward' would). it succeeds; like `re-search-forward' would).
MATCHER regexps can be generated via the function `regexp-opt'. MATCHER regexps can be generated via the function `regexp-opt'.
@ -1068,7 +1068,7 @@ that tries to find such elements and move the boundaries such that they do
not fall in the middle of one. not fall in the middle of one.
Each function is called with no argument; it is expected to adjust the Each function is called with no argument; it is expected to adjust the
dynamically bound variables `font-lock-beg' and `font-lock-end'; and return dynamically bound variables `font-lock-beg' and `font-lock-end'; and return
non-nil iff it did make such an adjustment. non-nil if it did make such an adjustment.
These functions are run in turn repeatedly until they all return nil. These functions are run in turn repeatedly until they all return nil.
Put first the functions more likely to cause a change and cheaper to compute.") Put first the functions more likely to cause a change and cheaper to compute.")
;; Mark it as a special hook which doesn't use any global setting ;; Mark it as a special hook which doesn't use any global setting
@ -1746,7 +1746,7 @@ A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to
"Set fontification defaults appropriately for this mode. "Set fontification defaults appropriately for this mode.
Sets various variables using `font-lock-defaults' (or, if nil, using Sets various variables using `font-lock-defaults' (or, if nil, using
`font-lock-defaults-alist') and `font-lock-maximum-decoration'." `font-lock-defaults-alist') and `font-lock-maximum-decoration'."
;; Set fontification defaults iff not previously set for correct major mode. ;; Set fontification defaults if not previously set for correct major mode.
(unless (and font-lock-set-defaults (unless (and font-lock-set-defaults
(eq font-lock-mode-major-mode major-mode)) (eq font-lock-mode-major-mode major-mode))
(setq font-lock-mode-major-mode major-mode) (setq font-lock-mode-major-mode major-mode)

View File

@ -1310,9 +1310,9 @@ itself as a pre-command hook."
(define-minor-mode blink-cursor-mode (define-minor-mode blink-cursor-mode
"Toggle blinking cursor mode. "Toggle blinking cursor mode.
With a numeric argument, turn blinking cursor mode on iff ARG is positive. With a numeric argument, turn blinking cursor mode on if ARG is positive,
When blinking cursor mode is enabled, the cursor of the selected otherwise turn it off. When blinking cursor mode is enabled, the
window blinks. cursor of the selected window blinks.
Note that this command is effective only when Emacs Note that this command is effective only when Emacs
displays through a window system, because then Emacs does its own displays through a window system, because then Emacs does its own

View File

@ -131,7 +131,7 @@
;; an example, if the value is `buffer-file-name' then all buffers ;; an example, if the value is `buffer-file-name' then all buffers
;; who are visiting files are suitable, but others (like dired ;; who are visiting files are suitable, but others (like dired
;; buffers) are not; ;; buffers) are not;
;; * a list -- then the buffer is suitable iff its mode is in the ;; * a list -- then the buffer is suitable if its mode is in the
;; list, except if the first element is `not', in which case the test ;; list, except if the first element is `not', in which case the test
;; is reversed (i.e. it is a list of unsuitable modes). ;; is reversed (i.e. it is a list of unsuitable modes).
;; * Otherwise, the buffer is suitable if its name does not begin with ;; * Otherwise, the buffer is suitable if its name does not begin with

View File

@ -1331,7 +1331,7 @@ If a buffer has no filename, it is ignored.
With no prefix arg, use the filename sans its directory of each marked file. With no prefix arg, use the filename sans its directory of each marked file.
With a zero prefix arg, use the complete filename of each marked file. With a zero prefix arg, use the complete filename of each marked file.
With \\[universal-argument], use the filename of each marked file relative With \\[universal-argument], use the filename of each marked file relative
to `ibuffer-default-directory' iff non-nil, otherwise `default-directory'. to `ibuffer-default-directory' if non-nil, otherwise `default-directory'.
You can then feed the file name(s) to other commands with \\[yank]." You can then feed the file name(s) to other commands with \\[yank]."
(interactive "p") (interactive "p")

View File

@ -1835,7 +1835,7 @@ If point is on a group name, this function operates on that group."
(defun ibuffer-map-lines (function &optional nomodify group) (defun ibuffer-map-lines (function &optional nomodify group)
"Call FUNCTION for each buffer. "Call FUNCTION for each buffer.
Don't set the ibuffer modification flag iff NOMODIFY is non-nil. Set the ibuffer modification flag unless NOMODIFY is non-nil.
If optional argument GROUP is non-nil, then only call FUNCTION on If optional argument GROUP is non-nil, then only call FUNCTION on
buffers in filtering group GROUP. buffers in filtering group GROUP.
@ -2267,7 +2267,7 @@ If optional arg SILENT is non-nil, do not display progress messages."
(defun ibuffer-quit () (defun ibuffer-quit ()
"Quit this `ibuffer' session. "Quit this `ibuffer' session.
Try to restore the previous window configuration iff Try to restore the previous window configuration if
`ibuffer-restore-window-config-on-quit' is non-nil." `ibuffer-restore-window-config-on-quit' is non-nil."
(interactive) (interactive)
(if ibuffer-restore-window-config-on-quit (if ibuffer-restore-window-config-on-quit

View File

@ -99,7 +99,7 @@ completions - see `icomplete-delay-completions-threshold'."
(defcustom icomplete-minibuffer-setup-hook nil (defcustom icomplete-minibuffer-setup-hook nil
"*Icomplete-specific customization of minibuffer setup. "*Icomplete-specific customization of minibuffer setup.
This hook is run during minibuffer setup iff icomplete will be active. This hook is run during minibuffer setup if icomplete is active.
It is intended for use in customizing icomplete for interoperation It is intended for use in customizing icomplete for interoperation
with other features and packages. For instance: with other features and packages. For instance:
@ -168,7 +168,8 @@ except those on this list.")
;;;###autoload ;;;###autoload
(define-minor-mode icomplete-mode (define-minor-mode icomplete-mode
"Toggle incremental minibuffer completion for this Emacs session. "Toggle incremental minibuffer completion for this Emacs session.
With a numeric argument, turn Icomplete mode on iff ARG is positive." With a numeric argument, turn Icomplete mode on if ARG is positive,
otherwise turn it off."
:global t :group 'icomplete :global t :group 'icomplete
(if icomplete-mode (if icomplete-mode
;; The following is not really necessary after first time - ;; The following is not really necessary after first time -

View File

@ -898,7 +898,7 @@ See documentation of `walk-windows' for useful values.")
(defcustom ido-minibuffer-setup-hook nil (defcustom ido-minibuffer-setup-hook nil
"*Ido-specific customization of minibuffer setup. "*Ido-specific customization of minibuffer setup.
This hook is run during minibuffer setup iff `ido' will be active. This hook is run during minibuffer setup if `ido' is active.
It is intended for use in customizing ido for interoperation It is intended for use in customizing ido for interoperation
with other packages. For instance: with other packages. For instance:

View File

@ -342,7 +342,7 @@ Image types are symbols like `xbm' or `jpeg'."
;;;###autoload ;;;###autoload
(defun image-type-auto-detected-p () (defun image-type-auto-detected-p ()
"Return t iff the current buffer contains an auto-detectable image. "Return t if the current buffer contains an auto-detectable image.
This function is intended to be used from `magic-fallback-mode-alist'. This function is intended to be used from `magic-fallback-mode-alist'.
The buffer is considered to contain an auto-detectable image if The buffer is considered to contain an auto-detectable image if

View File

@ -727,7 +727,7 @@ definitions, etc. It contains a substring which is the name to
appear in the menu. See the info section on Regexps for more appear in the menu. See the info section on Regexps for more
information. REGEXP may also be a function, called without information. REGEXP may also be a function, called without
arguments. It is expected to search backwards. It shall return arguments. It is expected to search backwards. It shall return
true and set `match-data' iff it finds another element. true and set `match-data' if it finds another element.
INDEX points to the substring in REGEXP that contains the INDEX points to the substring in REGEXP that contains the
name (of the function, variable or type) that is to appear in the name (of the function, variable or type) that is to appear in the

View File

@ -144,7 +144,7 @@ to `symbol', and the help mode defaults to the current major mode."
(apply 'info-lookup-add-help* nil arg)) (apply 'info-lookup-add-help* nil arg))
(defun info-lookup-maybe-add-help (&rest arg) (defun info-lookup-maybe-add-help (&rest arg)
"Add a help specification iff none is defined. "Add a help specification if none is defined.
See the documentation of the function `info-lookup-add-help' See the documentation of the function `info-lookup-add-help'
for more details." for more details."
(apply 'info-lookup-add-help* t arg)) (apply 'info-lookup-add-help* t arg))

View File

@ -819,7 +819,7 @@ NOPUSH is t and EDIT is t."
(run-hooks 'isearch-mode-end-hook)) (run-hooks 'isearch-mode-end-hook))
;; If there was movement, mark the starting position. ;; If there was movement, mark the starting position.
;; Maybe should test difference between and set mark iff > threshold. ;; Maybe should test difference between and set mark only if > threshold.
(if (/= (point) isearch-opoint) (if (/= (point) isearch-opoint)
(or (and transient-mark-mode mark-active) (or (and transient-mark-mode mark-active)
(progn (progn
@ -2321,7 +2321,7 @@ since they have special meaning in a regexp."
;; - the direction of the current search is expected to be given by ;; - the direction of the current search is expected to be given by
;; `isearch-forward'; ;; `isearch-forward';
;; - the variable `isearch-error' is expected to be true ;; - the variable `isearch-error' is expected to be true
;; iff `isearch-string' is an invalid regexp. ;; only if `isearch-string' is an invalid regexp.
(defvar isearch-lazy-highlight-overlays nil) (defvar isearch-lazy-highlight-overlays nil)
(defvar isearch-lazy-highlight-wrapped nil) (defvar isearch-lazy-highlight-wrapped nil)

View File

@ -396,7 +396,7 @@ See documentation of `walk-windows' for useful values.")
(defcustom iswitchb-minibuffer-setup-hook nil (defcustom iswitchb-minibuffer-setup-hook nil
"Iswitchb-specific customization of minibuffer setup. "Iswitchb-specific customization of minibuffer setup.
This hook is run during minibuffer setup iff `iswitchb' will be active. This hook is run during minibuffer setup if `iswitchb' is active.
For instance: For instance:
\(add-hook 'iswitchb-minibuffer-setup-hook \(add-hook 'iswitchb-minibuffer-setup-hook
'\(lambda () (set (make-local-variable 'max-mini-window-height) 3))) '\(lambda () (set (make-local-variable 'max-mini-window-height) 3)))
@ -1440,7 +1440,7 @@ This is an example function which can be hooked on to
(iswitchb-to-end summaries))) (iswitchb-to-end summaries)))
(defun iswitchb-case () (defun iswitchb-case ()
"Return non-nil iff we should ignore case when matching. "Return non-nil if we should ignore case when matching.
See the variable `iswitchb-case' for details." See the variable `iswitchb-case' for details."
(if iswitchb-case (if iswitchb-case
(if (featurep 'xemacs) (if (featurep 'xemacs)
@ -1450,7 +1450,7 @@ See the variable `iswitchb-case' for details."
;;;###autoload ;;;###autoload
(define-minor-mode iswitchb-mode (define-minor-mode iswitchb-mode
"Toggle Iswitchb global minor mode. "Toggle Iswitchb global minor mode.
With arg, turn Iswitchb mode on if and only iff ARG is positive. With arg, turn Iswitchb mode on if ARG is positive, otherwise turn it off.
This mode enables switching between buffers using substrings. See This mode enables switching between buffers using substrings. See
`iswitchb' for details." `iswitchb' for details."
nil nil iswitchb-global-map :global t :group 'iswitchb nil nil iswitchb-global-map :global t :group 'iswitchb

View File

@ -568,7 +568,7 @@ for more details."
(defvar user-mail-address) (defvar user-mail-address)
(defun log-edit-changelog-ours-p () (defun log-edit-changelog-ours-p ()
"See if ChangeLog entry at point is for the current user, today. "See if ChangeLog entry at point is for the current user, today.
Return non-nil iff it is." Return non-nil if it is."
;; Code adapted from add-change-log-entry. ;; Code adapted from add-change-log-entry.
(let ((name (or (and (boundp 'add-log-full-name) add-log-full-name) (let ((name (or (and (boundp 'add-log-full-name) add-log-full-name)
(and (fboundp 'user-full-name) (user-full-name)) (and (fboundp 'user-full-name) (user-full-name))

View File

@ -4943,9 +4943,9 @@ See `pr-visible-entry-alist'.")
If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist', If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist',
`pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not; `pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not;
otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is otherwise, update PostScript printer menu if `pr-ps-printer-menu-modified' is
non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is non-nil, update text printer menu if `pr-txt-printer-menu-modified' is
non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is non-nil, and update PostScript File menus if `pr-ps-utility-menu-modified' is
non-nil. non-nil.
If menu binding was not done, calls `pr-menu-bind'." If menu binding was not done, calls `pr-menu-bind'."

View File

@ -178,7 +178,7 @@ Cut buffers are considered obsolete; you should use selections instead."
If it is valid, set the register `r0' to 1, else set it to 0.") If it is valid, set the register `r0' to 1, else set it to 0.")
(defun string-utf-8-p (string) (defun string-utf-8-p (string)
"Return non-nil iff STRING is a unibyte string of valid UTF-8 sequence." "Return non-nil if STRING is a unibyte string of valid UTF-8 sequence."
(if (or (not (stringp string)) (if (or (not (stringp string))
(multibyte-string-p string)) (multibyte-string-p string))
(error "Not a unibyte string: %s" string)) (error "Not a unibyte string: %s" string))

View File

@ -285,7 +285,7 @@ information defining the cluster. For interactive use, call
ans))) ans)))
(defun shadow-site-match (site1 site2) (defun shadow-site-match (site1 site2)
"Non-nil iff SITE1 is or includes SITE2. "Non-nil if SITE1 is or includes SITE2.
Each may be a host or cluster name; if they are clusters, regexp of SITE1 will Each may be a host or cluster name; if they are clusters, regexp of SITE1 will
be matched against the primary of SITE2." be matched against the primary of SITE2."
(or (string-equal site1 site2) ; quick check (or (string-equal site1 site2) ; quick check

View File

@ -4343,8 +4343,9 @@ The variable `selective-display' has a separate value for each buffer."
(defun toggle-truncate-lines (&optional arg) (defun toggle-truncate-lines (&optional arg)
"Toggle whether to fold or truncate long lines for the current buffer. "Toggle whether to fold or truncate long lines for the current buffer.
With arg, truncate long lines iff arg is positive. With prefix argument ARG, truncate long lines if ARG is positive,
Note that in side-by-side windows, truncation is always enabled." otherwise don't truncate them. Note that in side-by-side
windows, truncation is always enabled."
(interactive "P") (interactive "P")
(setq truncate-lines (setq truncate-lines
(if (null arg) (if (null arg)
@ -4367,11 +4368,11 @@ Note that in side-by-side windows, truncation is always enabled."
(defun overwrite-mode (arg) (defun overwrite-mode (arg)
"Toggle overwrite mode. "Toggle overwrite mode.
With arg, turn overwrite mode on iff arg is positive. With prefix argument ARG, turn overwrite mode on if ARG is positive,
In overwrite mode, printing characters typed in replace existing text otherwise turn it off. In overwrite mode, printing characters typed
on a one-for-one basis, rather than pushing it to the right. At the in replace existing text on a one-for-one basis, rather than pushing
end of a line, such characters extend the line. Before a tab, it to the right. At the end of a line, such characters extend the line.
such characters insert until the tab is filled in. Before a tab, such characters insert until the tab is filled in.
\\[quoted-insert] still inserts characters in overwrite mode; this \\[quoted-insert] still inserts characters in overwrite mode; this
is supposed to make it easier to insert characters when necessary." is supposed to make it easier to insert characters when necessary."
(interactive "P") (interactive "P")
@ -4383,14 +4384,13 @@ is supposed to make it easier to insert characters when necessary."
(defun binary-overwrite-mode (arg) (defun binary-overwrite-mode (arg)
"Toggle binary overwrite mode. "Toggle binary overwrite mode.
With arg, turn binary overwrite mode on iff arg is positive. With prefix argument ARG, turn binary overwrite mode on if ARG is
In binary overwrite mode, printing characters typed in replace positive, otherwise turn it off. In binary overwrite mode, printing
existing text. Newlines are not treated specially, so typing at the characters typed in replace existing text. Newlines are not treated
end of a line joins the line to the next, with the typed character specially, so typing at the end of a line joins the line to the next,
between them. Typing before a tab character simply replaces the tab with the typed character between them. Typing before a tab character
with the character typed. simply replaces the tab with the character typed. \\[quoted-insert]
\\[quoted-insert] replaces the text at the cursor, just as ordinary replaces the text at the cursor, just as ordinary typing characters do.
typing characters do.
Note that binary overwrite mode is not its own minor mode; it is a Note that binary overwrite mode is not its own minor mode; it is a
specialization of overwrite mode, entered by setting the specialization of overwrite mode, entered by setting the
@ -4405,9 +4405,9 @@ specialization of overwrite mode, entered by setting the
(define-minor-mode line-number-mode (define-minor-mode line-number-mode
"Toggle Line Number mode. "Toggle Line Number mode.
With arg, turn Line Number mode on iff arg is positive. With arg, turn Line Number mode on if arg is positive, otherwise
When Line Number mode is enabled, the line number appears turn it off. When Line Number mode is enabled, the line number
in the mode line. appears in the mode line.
Line numbers do not appear for very large buffers and buffers Line numbers do not appear for very large buffers and buffers
with very long lines; see variables `line-number-display-limit' with very long lines; see variables `line-number-display-limit'
@ -4416,16 +4416,16 @@ and `line-number-display-limit-width'."
(define-minor-mode column-number-mode (define-minor-mode column-number-mode
"Toggle Column Number mode. "Toggle Column Number mode.
With arg, turn Column Number mode on iff arg is positive. With arg, turn Column Number mode on if arg is positive,
When Column Number mode is enabled, the column number appears otherwise turn it off. When Column Number mode is enabled, the
in the mode line." column number appears in the mode line."
:global t :group 'mode-line) :global t :group 'mode-line)
(define-minor-mode size-indication-mode (define-minor-mode size-indication-mode
"Toggle Size Indication mode. "Toggle Size Indication mode.
With arg, turn Size Indication mode on iff arg is positive. When With arg, turn Size Indication mode on if arg is positive,
Size Indication mode is enabled, the size of the accessible part otherwise turn it off. When Size Indication mode is enabled, the
of the buffer appears in the mode line." size of the accessible part of the buffer appears in the mode line."
:global t :group 'mode-line) :global t :group 'mode-line)
(defgroup paren-blinking nil (defgroup paren-blinking nil
@ -4960,7 +4960,7 @@ With prefix argument N, move N items (negative N means move backward)."
These functions are called in order with four arguments: These functions are called in order with four arguments:
CHOICE - the string to insert in the buffer, CHOICE - the string to insert in the buffer,
BUFFER - the buffer in which the choice should be inserted, BUFFER - the buffer in which the choice should be inserted,
MINI-P - non-nil iff BUFFER is a minibuffer, and MINI-P - non-nil if BUFFER is a minibuffer, and
BASE-SIZE - the number of characters in BUFFER before BASE-SIZE - the number of characters in BUFFER before
the string being completed. the string being completed.
@ -5568,7 +5568,8 @@ See also `normal-erase-is-backspace'."
(define-minor-mode visible-mode (define-minor-mode visible-mode
"Toggle Visible mode. "Toggle Visible mode.
With argument ARG turn Visible mode on iff ARG is positive. With argument ARG turn Visible mode on if ARG is positive, otherwise
turn it off.
Enabling Visible mode makes all invisible text temporarily visible. Enabling Visible mode makes all invisible text temporarily visible.
Disabling Visible mode turns off that effect. Visible mode Disabling Visible mode turns off that effect. Visible mode

View File

@ -209,8 +209,8 @@ If ELEMENT is a string or a character it gets inserted (see also
interesting point set by _ interesting point set by _
> indent line (or interregion if > _) according to major mode > indent line (or interregion if > _) according to major mode
@ add position to `skeleton-positions' @ add position to `skeleton-positions'
& do next ELEMENT iff previous moved point & do next ELEMENT if previous moved point
| do next ELEMENT iff previous didn't move point | do next ELEMENT if previous didn't move point
-num delete num preceding characters (see `skeleton-untabify') -num delete num preceding characters (see `skeleton-untabify')
resume: skipped, continue here if quit is signaled resume: skipped, continue here if quit is signaled
nil skipped nil skipped

View File

@ -1370,7 +1370,7 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead."
(goto-char (point-min)))) (goto-char (point-min))))
(defun strokes-alphabetic-lessp (stroke1 stroke2) (defun strokes-alphabetic-lessp (stroke1 stroke2)
"T iff command name for STROKE1 is less than STROKE2's in lexicographic order." "T if command name for STROKE1 is less than STROKE2's in lexicographic order."
(let ((command-name-1 (symbol-name (cdr stroke1))) (let ((command-name-1 (symbol-name (cdr stroke1)))
(command-name-2 (symbol-name (cdr stroke2)))) (command-name-2 (symbol-name (cdr stroke2))))
(string-lessp command-name-1 command-name-2))) (string-lessp command-name-1 command-name-2)))
@ -1520,7 +1520,7 @@ Encode/decode your strokes with \\[strokes-encode-buffer],
(eq char ?*))) (eq char ?*)))
;;(defsubst strokes-xor (a b) ### Should I make this an inline function? ### ;;(defsubst strokes-xor (a b) ### Should I make this an inline function? ###
;; "T iff one and only one of A and B is non-nil; otherwise, returns nil. ;; "T if one and only one of A and B is non-nil; otherwise, returns nil.
;;NOTE: Don't use this as a numeric xor since it treats all non-nil ;;NOTE: Don't use this as a numeric xor since it treats all non-nil
;; values as t including `0' (zero)." ;; values as t including `0' (zero)."
;; (eq (null a) (not (null b)))) ;; (eq (null a) (not (null b))))

View File

@ -271,7 +271,8 @@ The (secret) scrollbar interface is not implemented yet."
;;;###autoload ;;;###autoload
(define-minor-mode t-mouse-mode (define-minor-mode t-mouse-mode
"Toggle t-mouse mode to use the mouse in Linux consoles. "Toggle t-mouse mode to use the mouse in Linux consoles.
With prefix arg, turn t-mouse mode on iff arg is positive. With prefix arg, turn t-mouse mode on if arg is positive, otherwise turn it
off.
This allows the use of the mouse when operating on a Linux console, in the This allows the use of the mouse when operating on a Linux console, in the
same way as you can use the mouse under X11. same way as you can use the mouse under X11.

View File

@ -470,7 +470,7 @@
(defvar term-scroll-with-delete nil) ;; term-scroll-with-delete is t if (defvar term-scroll-with-delete nil) ;; term-scroll-with-delete is t if
;; forward scrolling should be implemented by delete to ;; forward scrolling should be implemented by delete to
;; top-most line(s); and nil if scrolling should be implemented ;; top-most line(s); and nil if scrolling should be implemented
;; by moving term-home-marker. It is set to t iff there is a ;; by moving term-home-marker. It is set to t if there is a
;; (non-default) scroll-region OR the alternate buffer is used. ;; (non-default) scroll-region OR the alternate buffer is used.
(defvar term-pending-delete-marker) ;; New user input in line mode needs to (defvar term-pending-delete-marker) ;; New user input in line mode needs to
;; be deleted, because it gets echoed by the inferior. ;; be deleted, because it gets echoed by the inferior.

View File

@ -134,7 +134,7 @@ The buffer in question is current when this function is called."
(setq answer nil)) (setq answer nil))
((eq answer 'revert) ((eq answer 'revert)
(revert-buffer nil (not (buffer-modified-p))) (revert-buffer nil (not (buffer-modified-p)))
; ask confirmation iff buffer modified ; ask confirmation if buffer modified
(signal 'file-supersession (signal 'file-supersession
(list "File reverted" fn))) (list "File reverted" fn)))
((eq answer 'yield) ((eq answer 'yield)

View File

@ -1103,7 +1103,7 @@ Used by `vc-restore-buffer-context' to later restore the context."
;; ;; We may want to reparse the compilation buffer after revert ;; ;; We may want to reparse the compilation buffer after revert
;; (reparse (and (boundp 'compilation-error-list) ;compile loaded ;; (reparse (and (boundp 'compilation-error-list) ;compile loaded
;; ;; Construct a list; each elt is nil or a buffer ;; ;; Construct a list; each elt is nil or a buffer
;; ;; iff that buffer is a compilation output buffer ;; ;; if that buffer is a compilation output buffer
;; ;; that contains markers into the current buffer. ;; ;; that contains markers into the current buffer.
;; (save-current-buffer ;; (save-current-buffer
;; (mapcar (lambda (buffer) ;; (mapcar (lambda (buffer)

View File

@ -375,7 +375,8 @@ Use this argument instead of explicitly setting `view-exit-action'."
;; bindings instead of using the \\[] construction. The reason for this ;; bindings instead of using the \\[] construction. The reason for this
;; is that most commands have more than one key binding. ;; is that most commands have more than one key binding.
"Toggle View mode, a minor mode for viewing text but not editing it. "Toggle View mode, a minor mode for viewing text but not editing it.
With ARG, turn View mode on iff ARG is positive. With prefix argument ARG, turn View mode on if ARG is positive, otherwise
turn it off.
Emacs commands that do not change the buffer contents are available as usual. Emacs commands that do not change the buffer contents are available as usual.
Kill commands insert text in kill buffers but do not delete. Other commands Kill commands insert text in kill buffers but do not delete. Other commands

View File

@ -763,7 +763,7 @@ If timer is not set, then set it to scan the files in
;;;###autoload ;;;###autoload
(define-minor-mode whitespace-global-mode (define-minor-mode whitespace-global-mode
"Toggle using Whitespace mode in new buffers. "Toggle using Whitespace mode in new buffers.
With ARG, turn the mode on iff ARG is positive. With ARG, turn the mode on if ARG is positive, otherwise turn it off.
When this mode is active, `whitespace-buffer' is added to When this mode is active, `whitespace-buffer' is added to
`find-file-hook' and `kill-buffer-hook'." `find-file-hook' and `kill-buffer-hook'."

View File

@ -483,7 +483,7 @@ new value.")
;;;###autoload ;;;###autoload
(defun widgetp (widget) (defun widgetp (widget)
"Return non-nil iff WIDGET is a widget." "Return non-nil if WIDGET is a widget."
(if (symbolp widget) (if (symbolp widget)
(get widget 'widget-type) (get widget 'widget-type)
(and (consp widget) (and (consp widget)
@ -500,7 +500,7 @@ Otherwise, just return the value."
value))) value)))
(defun widget-member (widget property) (defun widget-member (widget property)
"Non-nil iff there is a definition in WIDGET for PROPERTY." "Non-nil if there is a definition in WIDGET for PROPERTY."
(cond ((plist-member (cdr widget) property) (cond ((plist-member (cdr widget) property)
t) t)
((car widget) ((car widget)
@ -1641,7 +1641,7 @@ If that does not exists, call the value of `widget-complete-field'."
(widget-princ-to-string (widget-get widget :value)))) (widget-princ-to-string (widget-get widget :value))))
(defun widget-default-active (widget) (defun widget-default-active (widget)
"Return t iff this widget active (user modifiable)." "Return t if this widget is active (user modifiable)."
(or (widget-get widget :always-active) (or (widget-get widget :always-active)
(and (not (widget-get widget :inactive)) (and (not (widget-get widget :inactive))
(let ((parent (widget-get widget :parent))) (let ((parent (widget-get widget :parent)))

View File

@ -120,7 +120,7 @@ bars (top, bottom, or nil)."
PROC is called with a window as argument. PROC is called with a window as argument.
Optional second arg MINIBUF t means count the minibuffer window even Optional second arg MINIBUF t means count the minibuffer window even
if not active. MINIBUF nil or omitted means count the minibuffer iff if not active. MINIBUF nil or omitted means count the minibuffer only if
it is active. MINIBUF neither t nor nil means not to count the it is active. MINIBUF neither t nor nil means not to count the
minibuffer even if it is active. minibuffer even if it is active.
@ -165,7 +165,7 @@ value is returned. If no window satisfies PREDICATE, DEFAULT is
returned. returned.
Optional second arg MINIBUF t means count the minibuffer window even Optional second arg MINIBUF t means count the minibuffer window even
if not active. MINIBUF nil or omitted means count the minibuffer iff if not active. MINIBUF nil or omitted means count the minibuffer only if
it is active. MINIBUF neither t nor nil means not to count the it is active. MINIBUF neither t nor nil means not to count the
minibuffer even if it is active. minibuffer even if it is active.
@ -833,7 +833,7 @@ means suspend autoselection."
(defun mouse-autoselect-window-select () (defun mouse-autoselect-window-select ()
"Select window with delayed window autoselection. "Select window with delayed window autoselection.
If the mouse position has stabilized in a non-selected window, select If the mouse position has stabilized in a non-selected window, select
that window. The minibuffer window is selected iff the minibuffer is that window. The minibuffer window is selected only if the minibuffer is
active. This function is run by `mouse-autoselect-window-timer'." active. This function is run by `mouse-autoselect-window-timer'."
(condition-case nil (condition-case nil
(let* ((mouse-position (mouse-position)) (let* ((mouse-position (mouse-position))
@ -858,14 +858,14 @@ active. This function is run by `mouse-autoselect-window-timer'."
;; If `mouse-autoselect-window' is positive, select ;; If `mouse-autoselect-window' is positive, select
;; window if the window is the same as before. ;; window if the window is the same as before.
(eq window mouse-autoselect-window-window)) (eq window mouse-autoselect-window-window))
;; Otherwise select window iff the mouse is at the same ;; Otherwise select window if the mouse is at the same
;; position as before. Observe that the first test after ;; position as before. Observe that the first test after
;; starting autoselection usually fails since the value of ;; starting autoselection usually fails since the value of
;; `mouse-autoselect-window-position' recorded there is the ;; `mouse-autoselect-window-position' recorded there is the
;; position where the mouse has entered the new window and ;; position where the mouse has entered the new window and
;; not necessarily where the mouse has stopped moving. ;; not necessarily where the mouse has stopped moving.
(equal mouse-position mouse-autoselect-window-position)) (equal mouse-position mouse-autoselect-window-position))
;; The minibuffer is a candidate window iff it's active. ;; The minibuffer is a candidate window if it's active.
(or (not (window-minibuffer-p window)) (or (not (window-minibuffer-p window))
(eq window (active-minibuffer-window)))) (eq window (active-minibuffer-window))))
;; Mouse position has stabilized in non-selected window: Cancel ;; Mouse position has stabilized in non-selected window: Cancel

View File

@ -187,7 +187,8 @@
;;;###autoload ;;;###autoload
(define-minor-mode xterm-mouse-mode (define-minor-mode xterm-mouse-mode
"Toggle XTerm mouse mode. "Toggle XTerm mouse mode.
With prefix arg, turn XTerm mouse mode on iff arg is positive. With prefix arg, turn XTerm mouse mode on if arg is positive, otherwise turn
it off.
Turn it on to use Emacs mouse commands, and off to use xterm mouse commands. Turn it on to use Emacs mouse commands, and off to use xterm mouse commands.
This works in terminal emulators compatible with xterm. It only This works in terminal emulators compatible with xterm. It only

View File

@ -25,7 +25,7 @@ Boston, MA 02110-1301, USA. */
operating system this machine is likely to run. operating system this machine is likely to run.
USUAL-OPSYS="<name of system .h file here, without the s- or .h>" */ USUAL-OPSYS="<name of system .h file here, without the s- or .h>" */
/* Define WORDS_BIG_ENDIAN iff lowest-numbered byte in a word /* Define WORDS_BIG_ENDIAN if lowest-numbered byte in a word
is the most significant byte. */ is the most significant byte. */
#define WORDS_BIG_ENDIAN #define WORDS_BIG_ENDIAN

View File

@ -1,3 +1,8 @@
2007-08-08 Glenn Morris <rgm@gnu.org>
* glossary.texi (Glossary): Deprecate `iff'.
* gnus.texi, sieve.texi: Replace `iff'.
2007-08-07 Chong Yidong <cyd@stupidchicken.com> 2007-08-07 Chong Yidong <cyd@stupidchicken.com>
* files.texi (File Conveniences): Document point motion keys in Image * files.texi (File Conveniences): Document point motion keys in Image