aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2007-08-08 07:40:09 +0000
committerGlenn Morris2007-08-08 07:40:09 +0000
commit4837b516ea56c6cc2b3ce823b04078b10b2defc6 (patch)
tree8d2cf5aab413be0a169520329f869601e2fed0bf
parent5453fa41122e3278a442f4fab855561e41f4034f (diff)
downloademacs-4837b516ea56c6cc2b3ce823b04078b10b2defc6.tar.gz
emacs-4837b516ea56c6cc2b3ce823b04078b10b2defc6.zip
Replace `iff' in doc-strings and comments.
-rw-r--r--lisp/abbrev.el6
-rw-r--r--lisp/allout.el5
-rw-r--r--lisp/autorevert.el2
-rw-r--r--lisp/bindings.el2
-rw-r--r--lisp/custom.el10
-rw-r--r--lisp/diff.el3
-rw-r--r--lisp/dired-aux.el4
-rw-r--r--lisp/double.el3
-rw-r--r--lisp/ediff-diff.el4
-rw-r--r--lisp/files.el7
-rw-r--r--lisp/font-lock.el6
-rw-r--r--lisp/frame.el6
-rw-r--r--lisp/hilit-chg.el2
-rw-r--r--lisp/ibuf-ext.el2
-rw-r--r--lisp/ibuffer.el4
-rw-r--r--lisp/icomplete.el5
-rw-r--r--lisp/ido.el2
-rw-r--r--lisp/image.el2
-rw-r--r--lisp/imenu.el2
-rw-r--r--lisp/info-look.el2
-rw-r--r--lisp/isearch.el4
-rw-r--r--lisp/iswitchb.el6
-rw-r--r--lisp/log-edit.el2
-rw-r--r--lisp/printing.el6
-rw-r--r--lisp/select.el2
-rw-r--r--lisp/shadowfile.el2
-rw-r--r--lisp/simple.el53
-rw-r--r--lisp/skeleton.el4
-rw-r--r--lisp/strokes.el4
-rw-r--r--lisp/t-mouse.el3
-rw-r--r--lisp/term.el2
-rw-r--r--lisp/userlock.el2
-rw-r--r--lisp/vc.el2
-rw-r--r--lisp/view.el3
-rw-r--r--lisp/whitespace.el2
-rw-r--r--lisp/wid-edit.el6
-rw-r--r--lisp/window.el10
-rw-r--r--lisp/xt-mouse.el3
-rw-r--r--mac/inc/m-mac.h2
-rw-r--r--man/ChangeLog5
40 files changed, 108 insertions, 94 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 1471ca7bebd..b2b03fe63bb 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -39,9 +39,9 @@ define global abbrevs instead."
39 39
40(defun abbrev-mode (&optional arg) 40(defun abbrev-mode (&optional arg)
41 "Toggle Abbrev mode in the current buffer. 41 "Toggle Abbrev mode in the current buffer.
42With argument ARG, turn abbrev mode on iff ARG is positive. 42With optional argument ARG, turn abbrev mode on if ARG is
43In Abbrev mode, inserting an abbreviation causes it to expand 43positive, otherwise turn it off. In Abbrev mode, inserting an
44and be replaced by its expansion." 44abbreviation causes it to expand and be replaced by its expansion."
45 (interactive "P") 45 (interactive "P")
46 (setq abbrev-mode 46 (setq abbrev-mode
47 (if (null arg) (not abbrev-mode) 47 (if (null arg) (not abbrev-mode)
diff --git a/lisp/allout.el b/lisp/allout.el
index f6598063e97..d243a188812 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -1658,8 +1658,9 @@ the following two lines in your Emacs init file:
1658 "Toggle minor mode for controlling exposure and editing of text outlines. 1658 "Toggle minor mode for controlling exposure and editing of text outlines.
1659\\<allout-mode-map> 1659\\<allout-mode-map>
1660 1660
1661Optional arg forces mode to re-initialize iff arg is positive num or 1661Optional prefix argument TOGGLE forces the mode to re-initialize
1662symbol. Allout outline mode always runs as a minor mode. 1662if it is positive, otherwise it turns the mode off. Allout
1663outline mode always runs as a minor mode.
1663 1664
1664Allout outline mode provides extensive outline oriented formatting and 1665Allout outline mode provides extensive outline oriented formatting and
1665manipulation. It enables structural editing of outlines, as well as 1666manipulation. It enables structural editing of outlines, as well as
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index cad94e789d6..5220f3f6dea 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -315,7 +315,7 @@ This function is designed to be added to hooks, for example:
315;;;###autoload 315;;;###autoload
316(define-minor-mode auto-revert-tail-mode 316(define-minor-mode auto-revert-tail-mode
317 "Toggle reverting tail of buffer when file on disk grows. 317 "Toggle reverting tail of buffer when file on disk grows.
318With arg, turn Tail mode on iff arg is positive. 318With arg, turn Tail mode on if arg is positive, otherwise turn it off.
319 319
320When Tail mode is enabled, the tail of the file is constantly 320When Tail mode is enabled, the tail of the file is constantly
321followed, as with the shell command `tail -f'. This means that 321followed, as with the shell command `tail -f'. This means that
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4ce58c204eb..3c7237a52fa 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -476,7 +476,7 @@ Menu of mode operations in the mode line.")
476(defvar minor-mode-alist nil "\ 476(defvar minor-mode-alist nil "\
477Alist saying how to show minor modes in the mode line. 477Alist saying how to show minor modes in the mode line.
478Each element looks like (VARIABLE STRING); 478Each element looks like (VARIABLE STRING);
479STRING is included in the mode line iff VARIABLE's value is non-nil. 479STRING is included in the mode line if VARIABLE's value is non-nil.
480 480
481Actually, STRING need not be a string; any possible mode-line element 481Actually, STRING need not be a string; any possible mode-line element
482is okay. See `mode-line-format'.") 482is okay. See `mode-line-format'.")
diff --git a/lisp/custom.el b/lisp/custom.el
index c50fcb05f42..e5925dd18d0 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -642,7 +642,7 @@ this sets the local binding in that buffer instead."
642 (funcall variable (if value 1 0)))) 642 (funcall variable (if value 1 0))))
643 643
644(defun custom-quote (sexp) 644(defun custom-quote (sexp)
645 "Quote SEXP iff it is not self quoting." 645 "Quote SEXP if it is not self quoting."
646 (if (or (memq sexp '(t nil)) 646 (if (or (memq sexp '(t nil))
647 (keywordp sexp) 647 (keywordp sexp)
648 (and (listp sexp) 648 (and (listp sexp)
@@ -665,14 +665,14 @@ default value. Otherwise, set it to nil.
665 665
666To actually save the value, call `custom-save-all'. 666To actually save the value, call `custom-save-all'.
667 667
668Return non-nil iff the `saved-value' property actually changed." 668Return non-nil if the `saved-value' property actually changed."
669 (custom-load-symbol symbol) 669 (custom-load-symbol symbol)
670 (let* ((get (or (get symbol 'custom-get) 'default-value)) 670 (let* ((get (or (get symbol 'custom-get) 'default-value))
671 (value (funcall get symbol)) 671 (value (funcall get symbol))
672 (saved (get symbol 'saved-value)) 672 (saved (get symbol 'saved-value))
673 (standard (get symbol 'standard-value)) 673 (standard (get symbol 'standard-value))
674 (comment (get symbol 'customized-variable-comment))) 674 (comment (get symbol 'customized-variable-comment)))
675 ;; Save default value iff different from standard value. 675 ;; Save default value if different from standard value.
676 (if (or (null standard) 676 (if (or (null standard)
677 (not (equal value (condition-case nil 677 (not (equal value (condition-case nil
678 (eval (car standard)) 678 (eval (car standard))
@@ -694,13 +694,13 @@ or else if it is different from the standard value, set the
694`customized-value' property to a list whose car evaluates to the 694`customized-value' property to a list whose car evaluates to the
695default value. Otherwise, set it to nil. 695default value. Otherwise, set it to nil.
696 696
697Return non-nil iff the `customized-value' property actually changed." 697Return non-nil if the `customized-value' property actually changed."
698 (custom-load-symbol symbol) 698 (custom-load-symbol symbol)
699 (let* ((get (or (get symbol 'custom-get) 'default-value)) 699 (let* ((get (or (get symbol 'custom-get) 'default-value))
700 (value (funcall get symbol)) 700 (value (funcall get symbol))
701 (customized (get symbol 'customized-value)) 701 (customized (get symbol 'customized-value))
702 (old (or (get symbol 'saved-value) (get symbol 'standard-value)))) 702 (old (or (get symbol 'saved-value) (get symbol 'standard-value))))
703 ;; Mark default value as set iff different from old value. 703 ;; Mark default value as set if different from old value.
704 (if (not (and old 704 (if (not (and old
705 (equal value (condition-case nil 705 (equal value (condition-case nil
706 (eval (car old)) 706 (eval (car old))
diff --git a/lisp/diff.el b/lisp/diff.el
index c612b2fb77c..75ae34d5f2a 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -62,7 +62,8 @@
62 62
63(defun diff-sentinel (code) 63(defun diff-sentinel (code)
64 "Code run when the diff process exits. 64 "Code run when the diff process exits.
65CODE is the exit code of the process. It should be 0 iff no diffs were found." 65CODE is the exit code of the process. It should be 0 only if no diffs
66were found."
66 (if diff-old-temp-file (delete-file diff-old-temp-file)) 67 (if diff-old-temp-file (delete-file diff-old-temp-file))
67 (if diff-new-temp-file (delete-file diff-new-temp-file)) 68 (if diff-new-temp-file (delete-file diff-new-temp-file))
68 (save-excursion 69 (save-excursion
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index fd57c4b8885..4d9849cd534 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2006,8 +2006,8 @@ of marked files. If KILL-ROOT is non-nil, kill DIRNAME as well."
2006 2006
2007(defun dired-tree-lessp (dir1 dir2) 2007(defun dired-tree-lessp (dir1 dir2)
2008 ;; Lexicographic order on file name components, like `ls -lR': 2008 ;; Lexicographic order on file name components, like `ls -lR':
2009 ;; DIR1 < DIR2 iff DIR1 comes *before* DIR2 in an `ls -lR' listing, 2009 ;; DIR1 < DIR2 if DIR1 comes *before* DIR2 in an `ls -lR' listing,
2010 ;; i.e., iff DIR1 is a (grand)parent dir of DIR2, 2010 ;; i.e., if DIR1 is a (grand)parent dir of DIR2,
2011 ;; or DIR1 and DIR2 are in the same parentdir and their last 2011 ;; or DIR1 and DIR2 are in the same parentdir and their last
2012 ;; components are string-lessp. 2012 ;; components are string-lessp.
2013 ;; Thus ("/usr/" "/usr/bin") and ("/usr/a/" "/usr/b/") are tree-lessp. 2013 ;; Thus ("/usr/" "/usr/bin") and ("/usr/a/" "/usr/b/") are tree-lessp.
diff --git a/lisp/double.el b/lisp/double.el
index 4b1d59ff1ec..0b5cf110fbd 100644
--- a/lisp/double.el
+++ b/lisp/double.el
@@ -186,7 +186,8 @@ use either \\[customize] or the function `double-mode'."
186;;;###autoload 186;;;###autoload
187(defun double-mode (arg) 187(defun double-mode (arg)
188 "Toggle Double mode. 188 "Toggle Double mode.
189With prefix arg, turn Double mode on iff arg is positive. 189With prefix argument ARG, turn Double mode on if ARG is positive, otherwise
190turn it off.
190 191
191When Double mode is on, some keys will insert different strings 192When Double mode is on, some keys will insert different strings
192when pressed twice. See variable `double-map' for details." 193when pressed twice. See variable `double-map' for details."
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 48cd7c79d4e..ec153fde625 100644
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -867,7 +867,7 @@ one optional arguments, diff-number to refine.")
867 (ediff-make-fine-diffs n 'noforce) 867 (ediff-make-fine-diffs n 'noforce)
868 (ediff-make-fine-diffs n 'skip))) 868 (ediff-make-fine-diffs n 'skip)))
869 869
870 ;; highlight iff fine diffs already exist 870 ;; highlight if fine diffs already exist
871 ((eq ediff-auto-refine 'off) 871 ((eq ediff-auto-refine 'off)
872 (ediff-make-fine-diffs n 'skip)))) 872 (ediff-make-fine-diffs n 'skip))))
873 873
@@ -1459,7 +1459,7 @@ arguments to `skip-chars-forward'."
1459 1459
1460 1460
1461(defun ediff-same-contents (d1 d2 &optional filter-re) 1461(defun ediff-same-contents (d1 d2 &optional filter-re)
1462 "Returns t iff D1 and D2 have the same content. 1462 "Return t if D1 and D2 have the same content.
1463D1 and D2 can either be both directories or both regular files. 1463D1 and D2 can either be both directories or both regular files.
1464Symlinks and the likes are not handled. 1464Symlinks and the likes are not handled.
1465If FILTER-RE is non-nil, recursive checking in directories 1465If FILTER-RE is non-nil, recursive checking in directories
diff --git a/lisp/files.el b/lisp/files.el
index dfa3cef384d..4d952f3f935 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3941,8 +3941,9 @@ prints a message in the minibuffer. Instead, use `set-buffer-modified-p'."
3941 3941
3942(defun toggle-read-only (&optional arg) 3942(defun toggle-read-only (&optional arg)
3943 "Change whether this buffer is visiting its file read-only. 3943 "Change whether this buffer is visiting its file read-only.
3944With arg, set read-only iff arg is positive. 3944With prefix argument ARG, make the buffer read-only if ARG is
3945If visiting file read-only and `view-read-only' is non-nil, enter view mode." 3945positive, otherwise make it writable. If visiting file read-only
3946and `view-read-only' is non-nil, enter view mode."
3946 (interactive "P") 3947 (interactive "P")
3947 (if (and arg 3948 (if (and arg
3948 (if (> (prefix-numeric-value arg) 0) buffer-read-only 3949 (if (> (prefix-numeric-value arg) 0) buffer-read-only
@@ -4568,7 +4569,7 @@ FILENAME should lack slashes. You can redefine this for customization."
4568 4569
4569(defun wildcard-to-regexp (wildcard) 4570(defun wildcard-to-regexp (wildcard)
4570 "Given a shell file name pattern WILDCARD, return an equivalent regexp. 4571 "Given a shell file name pattern WILDCARD, return an equivalent regexp.
4571The generated regexp will match a filename iff the filename 4572The generated regexp will match a filename only if the filename
4572matches that wildcard according to shell rules. Only wildcards known 4573matches that wildcard according to shell rules. Only wildcards known
4573by `sh' are supported." 4574by `sh' are supported."
4574 (let* ((i (string-match "[[.*+\\^$?]" wildcard)) 4575 (let* ((i (string-match "[[.*+\\^$?]" wildcard))
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 9eb4fdde2df..6bc5fd8716f 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -355,7 +355,7 @@ Each element in a user-level keywords list should have one of these forms:
355 355
356where MATCHER can be either the regexp to search for, or the function name to 356where MATCHER can be either the regexp to search for, or the function name to
357call to make the search (called with one argument, the limit of the search; 357call to make the search (called with one argument, the limit of the search;
358it should return non-nil, move point, and set `match-data' appropriately iff 358it should return non-nil, move point, and set `match-data' appropriately if
359it succeeds; like `re-search-forward' would). 359it succeeds; like `re-search-forward' would).
360MATCHER regexps can be generated via the function `regexp-opt'. 360MATCHER regexps can be generated via the function `regexp-opt'.
361 361
@@ -1068,7 +1068,7 @@ that tries to find such elements and move the boundaries such that they do
1068not fall in the middle of one. 1068not fall in the middle of one.
1069Each function is called with no argument; it is expected to adjust the 1069Each function is called with no argument; it is expected to adjust the
1070dynamically bound variables `font-lock-beg' and `font-lock-end'; and return 1070dynamically bound variables `font-lock-beg' and `font-lock-end'; and return
1071non-nil iff it did make such an adjustment. 1071non-nil if it did make such an adjustment.
1072These functions are run in turn repeatedly until they all return nil. 1072These functions are run in turn repeatedly until they all return nil.
1073Put first the functions more likely to cause a change and cheaper to compute.") 1073Put first the functions more likely to cause a change and cheaper to compute.")
1074;; Mark it as a special hook which doesn't use any global setting 1074;; 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
1746 "Set fontification defaults appropriately for this mode. 1746 "Set fontification defaults appropriately for this mode.
1747Sets various variables using `font-lock-defaults' (or, if nil, using 1747Sets various variables using `font-lock-defaults' (or, if nil, using
1748`font-lock-defaults-alist') and `font-lock-maximum-decoration'." 1748`font-lock-defaults-alist') and `font-lock-maximum-decoration'."
1749 ;; Set fontification defaults iff not previously set for correct major mode. 1749 ;; Set fontification defaults if not previously set for correct major mode.
1750 (unless (and font-lock-set-defaults 1750 (unless (and font-lock-set-defaults
1751 (eq font-lock-mode-major-mode major-mode)) 1751 (eq font-lock-mode-major-mode major-mode))
1752 (setq font-lock-mode-major-mode major-mode) 1752 (setq font-lock-mode-major-mode major-mode)
diff --git a/lisp/frame.el b/lisp/frame.el
index 13c42ed5ad1..97133dee87c 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1310,9 +1310,9 @@ itself as a pre-command hook."
1310 1310
1311(define-minor-mode blink-cursor-mode 1311(define-minor-mode blink-cursor-mode
1312 "Toggle blinking cursor mode. 1312 "Toggle blinking cursor mode.
1313With a numeric argument, turn blinking cursor mode on iff ARG is positive. 1313With a numeric argument, turn blinking cursor mode on if ARG is positive,
1314When blinking cursor mode is enabled, the cursor of the selected 1314otherwise turn it off. When blinking cursor mode is enabled, the
1315window blinks. 1315cursor of the selected window blinks.
1316 1316
1317Note that this command is effective only when Emacs 1317Note that this command is effective only when Emacs
1318displays through a window system, because then Emacs does its own 1318displays through a window system, because then Emacs does its own
diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el
index b1238b66419..a167b2bc1e7 100644
--- a/lisp/hilit-chg.el
+++ b/lisp/hilit-chg.el
@@ -131,7 +131,7 @@
131;; an example, if the value is `buffer-file-name' then all buffers 131;; an example, if the value is `buffer-file-name' then all buffers
132;; who are visiting files are suitable, but others (like dired 132;; who are visiting files are suitable, but others (like dired
133;; buffers) are not; 133;; buffers) are not;
134;; * a list -- then the buffer is suitable iff its mode is in the 134;; * a list -- then the buffer is suitable if its mode is in the
135;; list, except if the first element is `not', in which case the test 135;; list, except if the first element is `not', in which case the test
136;; is reversed (i.e. it is a list of unsuitable modes). 136;; is reversed (i.e. it is a list of unsuitable modes).
137;; * Otherwise, the buffer is suitable if its name does not begin with 137;; * Otherwise, the buffer is suitable if its name does not begin with
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index b077342e5f5..7847bed6f2d 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1331,7 +1331,7 @@ If a buffer has no filename, it is ignored.
1331With no prefix arg, use the filename sans its directory of each marked file. 1331With no prefix arg, use the filename sans its directory of each marked file.
1332With a zero prefix arg, use the complete filename of each marked file. 1332With a zero prefix arg, use the complete filename of each marked file.
1333With \\[universal-argument], use the filename of each marked file relative 1333With \\[universal-argument], use the filename of each marked file relative
1334to `ibuffer-default-directory' iff non-nil, otherwise `default-directory'. 1334to `ibuffer-default-directory' if non-nil, otherwise `default-directory'.
1335 1335
1336You can then feed the file name(s) to other commands with \\[yank]." 1336You can then feed the file name(s) to other commands with \\[yank]."
1337 (interactive "p") 1337 (interactive "p")
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index c4842b9d982..80133d227ab 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1835,7 +1835,7 @@ If point is on a group name, this function operates on that group."
1835 1835
1836(defun ibuffer-map-lines (function &optional nomodify group) 1836(defun ibuffer-map-lines (function &optional nomodify group)
1837 "Call FUNCTION for each buffer. 1837 "Call FUNCTION for each buffer.
1838Don't set the ibuffer modification flag iff NOMODIFY is non-nil. 1838Set the ibuffer modification flag unless NOMODIFY is non-nil.
1839 1839
1840If optional argument GROUP is non-nil, then only call FUNCTION on 1840If optional argument GROUP is non-nil, then only call FUNCTION on
1841buffers in filtering group GROUP. 1841buffers in filtering group GROUP.
@@ -2267,7 +2267,7 @@ If optional arg SILENT is non-nil, do not display progress messages."
2267 2267
2268(defun ibuffer-quit () 2268(defun ibuffer-quit ()
2269 "Quit this `ibuffer' session. 2269 "Quit this `ibuffer' session.
2270Try to restore the previous window configuration iff 2270Try to restore the previous window configuration if
2271`ibuffer-restore-window-config-on-quit' is non-nil." 2271`ibuffer-restore-window-config-on-quit' is non-nil."
2272 (interactive) 2272 (interactive)
2273 (if ibuffer-restore-window-config-on-quit 2273 (if ibuffer-restore-window-config-on-quit
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index d1e8f9cc3f8..44c854f2f46 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -99,7 +99,7 @@ completions - see `icomplete-delay-completions-threshold'."
99(defcustom icomplete-minibuffer-setup-hook nil 99(defcustom icomplete-minibuffer-setup-hook nil
100 "*Icomplete-specific customization of minibuffer setup. 100 "*Icomplete-specific customization of minibuffer setup.
101 101
102This hook is run during minibuffer setup iff icomplete will be active. 102This hook is run during minibuffer setup if icomplete is active.
103It is intended for use in customizing icomplete for interoperation 103It is intended for use in customizing icomplete for interoperation
104with other features and packages. For instance: 104with other features and packages. For instance:
105 105
@@ -168,7 +168,8 @@ except those on this list.")
168;;;###autoload 168;;;###autoload
169(define-minor-mode icomplete-mode 169(define-minor-mode icomplete-mode
170 "Toggle incremental minibuffer completion for this Emacs session. 170 "Toggle incremental minibuffer completion for this Emacs session.
171With a numeric argument, turn Icomplete mode on iff ARG is positive." 171With a numeric argument, turn Icomplete mode on if ARG is positive,
172otherwise turn it off."
172 :global t :group 'icomplete 173 :global t :group 'icomplete
173 (if icomplete-mode 174 (if icomplete-mode
174 ;; The following is not really necessary after first time - 175 ;; The following is not really necessary after first time -
diff --git a/lisp/ido.el b/lisp/ido.el
index e5c4b644f95..ca44e99b594 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -898,7 +898,7 @@ See documentation of `walk-windows' for useful values.")
898(defcustom ido-minibuffer-setup-hook nil 898(defcustom ido-minibuffer-setup-hook nil
899 "*Ido-specific customization of minibuffer setup. 899 "*Ido-specific customization of minibuffer setup.
900 900
901This hook is run during minibuffer setup iff `ido' will be active. 901This hook is run during minibuffer setup if `ido' is active.
902It is intended for use in customizing ido for interoperation 902It is intended for use in customizing ido for interoperation
903with other packages. For instance: 903with other packages. For instance:
904 904
diff --git a/lisp/image.el b/lisp/image.el
index cf909da0e95..480b5610311 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -342,7 +342,7 @@ Image types are symbols like `xbm' or `jpeg'."
342 342
343;;;###autoload 343;;;###autoload
344(defun image-type-auto-detected-p () 344(defun image-type-auto-detected-p ()
345 "Return t iff the current buffer contains an auto-detectable image. 345 "Return t if the current buffer contains an auto-detectable image.
346This function is intended to be used from `magic-fallback-mode-alist'. 346This function is intended to be used from `magic-fallback-mode-alist'.
347 347
348The buffer is considered to contain an auto-detectable image if 348The buffer is considered to contain an auto-detectable image if
diff --git a/lisp/imenu.el b/lisp/imenu.el
index 9aa1f5ea088..6c1de967e66 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -727,7 +727,7 @@ definitions, etc. It contains a substring which is the name to
727appear in the menu. See the info section on Regexps for more 727appear in the menu. See the info section on Regexps for more
728information. REGEXP may also be a function, called without 728information. REGEXP may also be a function, called without
729arguments. It is expected to search backwards. It shall return 729arguments. It is expected to search backwards. It shall return
730true and set `match-data' iff it finds another element. 730true and set `match-data' if it finds another element.
731 731
732INDEX points to the substring in REGEXP that contains the 732INDEX points to the substring in REGEXP that contains the
733name (of the function, variable or type) that is to appear in the 733name (of the function, variable or type) that is to appear in the
diff --git a/lisp/info-look.el b/lisp/info-look.el
index 8ace7730a12..4ed13ba08e0 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -144,7 +144,7 @@ to `symbol', and the help mode defaults to the current major mode."
144 (apply 'info-lookup-add-help* nil arg)) 144 (apply 'info-lookup-add-help* nil arg))
145 145
146(defun info-lookup-maybe-add-help (&rest arg) 146(defun info-lookup-maybe-add-help (&rest arg)
147 "Add a help specification iff none is defined. 147 "Add a help specification if none is defined.
148See the documentation of the function `info-lookup-add-help' 148See the documentation of the function `info-lookup-add-help'
149for more details." 149for more details."
150 (apply 'info-lookup-add-help* t arg)) 150 (apply 'info-lookup-add-help* t arg))
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 7b90e319766..cc68ee297bd 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -819,7 +819,7 @@ NOPUSH is t and EDIT is t."
819 (run-hooks 'isearch-mode-end-hook)) 819 (run-hooks 'isearch-mode-end-hook))
820 820
821 ;; If there was movement, mark the starting position. 821 ;; If there was movement, mark the starting position.
822 ;; Maybe should test difference between and set mark iff > threshold. 822 ;; Maybe should test difference between and set mark only if > threshold.
823 (if (/= (point) isearch-opoint) 823 (if (/= (point) isearch-opoint)
824 (or (and transient-mark-mode mark-active) 824 (or (and transient-mark-mode mark-active)
825 (progn 825 (progn
@@ -2321,7 +2321,7 @@ since they have special meaning in a regexp."
2321;; - the direction of the current search is expected to be given by 2321;; - the direction of the current search is expected to be given by
2322;; `isearch-forward'; 2322;; `isearch-forward';
2323;; - the variable `isearch-error' is expected to be true 2323;; - the variable `isearch-error' is expected to be true
2324;; iff `isearch-string' is an invalid regexp. 2324;; only if `isearch-string' is an invalid regexp.
2325 2325
2326(defvar isearch-lazy-highlight-overlays nil) 2326(defvar isearch-lazy-highlight-overlays nil)
2327(defvar isearch-lazy-highlight-wrapped nil) 2327(defvar isearch-lazy-highlight-wrapped nil)
diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index 068f5fff2cd..233997285c9 100644
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -396,7 +396,7 @@ See documentation of `walk-windows' for useful values.")
396(defcustom iswitchb-minibuffer-setup-hook nil 396(defcustom iswitchb-minibuffer-setup-hook nil
397 "Iswitchb-specific customization of minibuffer setup. 397 "Iswitchb-specific customization of minibuffer setup.
398 398
399This hook is run during minibuffer setup iff `iswitchb' will be active. 399This hook is run during minibuffer setup if `iswitchb' is active.
400For instance: 400For instance:
401\(add-hook 'iswitchb-minibuffer-setup-hook 401\(add-hook 'iswitchb-minibuffer-setup-hook
402 '\(lambda () (set (make-local-variable 'max-mini-window-height) 3))) 402 '\(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
1440 (iswitchb-to-end summaries))) 1440 (iswitchb-to-end summaries)))
1441 1441
1442(defun iswitchb-case () 1442(defun iswitchb-case ()
1443 "Return non-nil iff we should ignore case when matching. 1443 "Return non-nil if we should ignore case when matching.
1444See the variable `iswitchb-case' for details." 1444See the variable `iswitchb-case' for details."
1445 (if iswitchb-case 1445 (if iswitchb-case
1446 (if (featurep 'xemacs) 1446 (if (featurep 'xemacs)
@@ -1450,7 +1450,7 @@ See the variable `iswitchb-case' for details."
1450;;;###autoload 1450;;;###autoload
1451(define-minor-mode iswitchb-mode 1451(define-minor-mode iswitchb-mode
1452 "Toggle Iswitchb global minor mode. 1452 "Toggle Iswitchb global minor mode.
1453With arg, turn Iswitchb mode on if and only iff ARG is positive. 1453With arg, turn Iswitchb mode on if ARG is positive, otherwise turn it off.
1454This mode enables switching between buffers using substrings. See 1454This mode enables switching between buffers using substrings. See
1455`iswitchb' for details." 1455`iswitchb' for details."
1456 nil nil iswitchb-global-map :global t :group 'iswitchb 1456 nil nil iswitchb-global-map :global t :group 'iswitchb
diff --git a/lisp/log-edit.el b/lisp/log-edit.el
index 94d97abc8a5..c8ee5db812b 100644
--- a/lisp/log-edit.el
+++ b/lisp/log-edit.el
@@ -568,7 +568,7 @@ for more details."
568(defvar user-mail-address) 568(defvar user-mail-address)
569(defun log-edit-changelog-ours-p () 569(defun log-edit-changelog-ours-p ()
570 "See if ChangeLog entry at point is for the current user, today. 570 "See if ChangeLog entry at point is for the current user, today.
571Return non-nil iff it is." 571Return non-nil if it is."
572 ;; Code adapted from add-change-log-entry. 572 ;; Code adapted from add-change-log-entry.
573 (let ((name (or (and (boundp 'add-log-full-name) add-log-full-name) 573 (let ((name (or (and (boundp 'add-log-full-name) add-log-full-name)
574 (and (fboundp 'user-full-name) (user-full-name)) 574 (and (fboundp 'user-full-name) (user-full-name))
diff --git a/lisp/printing.el b/lisp/printing.el
index f84a2112661..412f0b342fc 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -4943,9 +4943,9 @@ See `pr-visible-entry-alist'.")
4943 4943
4944If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist', 4944If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist',
4945`pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not; 4945`pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not;
4946otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is 4946otherwise, update PostScript printer menu if `pr-ps-printer-menu-modified' is
4947non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is 4947non-nil, update text printer menu if `pr-txt-printer-menu-modified' is
4948non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is 4948non-nil, and update PostScript File menus if `pr-ps-utility-menu-modified' is
4949non-nil. 4949non-nil.
4950 4950
4951If menu binding was not done, calls `pr-menu-bind'." 4951If menu binding was not done, calls `pr-menu-bind'."
diff --git a/lisp/select.el b/lisp/select.el
index b1fa729a664..60259142522 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -178,7 +178,7 @@ Cut buffers are considered obsolete; you should use selections instead."
178If it is valid, set the register `r0' to 1, else set it to 0.") 178If it is valid, set the register `r0' to 1, else set it to 0.")
179 179
180(defun string-utf-8-p (string) 180(defun string-utf-8-p (string)
181 "Return non-nil iff STRING is a unibyte string of valid UTF-8 sequence." 181 "Return non-nil if STRING is a unibyte string of valid UTF-8 sequence."
182 (if (or (not (stringp string)) 182 (if (or (not (stringp string))
183 (multibyte-string-p string)) 183 (multibyte-string-p string))
184 (error "Not a unibyte string: %s" string)) 184 (error "Not a unibyte string: %s" string))
diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index ee6dcc15b7e..d1de8be3910 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -285,7 +285,7 @@ information defining the cluster. For interactive use, call
285 ans))) 285 ans)))
286 286
287(defun shadow-site-match (site1 site2) 287(defun shadow-site-match (site1 site2)
288 "Non-nil iff SITE1 is or includes SITE2. 288 "Non-nil if SITE1 is or includes SITE2.
289Each may be a host or cluster name; if they are clusters, regexp of SITE1 will 289Each may be a host or cluster name; if they are clusters, regexp of SITE1 will
290be matched against the primary of SITE2." 290be matched against the primary of SITE2."
291 (or (string-equal site1 site2) ; quick check 291 (or (string-equal site1 site2) ; quick check
diff --git a/lisp/simple.el b/lisp/simple.el
index 6148a917f59..b71dffd3c35 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4343,8 +4343,9 @@ The variable `selective-display' has a separate value for each buffer."
4343 4343
4344(defun toggle-truncate-lines (&optional arg) 4344(defun toggle-truncate-lines (&optional arg)
4345 "Toggle whether to fold or truncate long lines for the current buffer. 4345 "Toggle whether to fold or truncate long lines for the current buffer.
4346With arg, truncate long lines iff arg is positive. 4346With prefix argument ARG, truncate long lines if ARG is positive,
4347Note that in side-by-side windows, truncation is always enabled." 4347otherwise don't truncate them. Note that in side-by-side
4348windows, truncation is always enabled."
4348 (interactive "P") 4349 (interactive "P")
4349 (setq truncate-lines 4350 (setq truncate-lines
4350 (if (null arg) 4351 (if (null arg)
@@ -4367,11 +4368,11 @@ Note that in side-by-side windows, truncation is always enabled."
4367 4368
4368(defun overwrite-mode (arg) 4369(defun overwrite-mode (arg)
4369 "Toggle overwrite mode. 4370 "Toggle overwrite mode.
4370With arg, turn overwrite mode on iff arg is positive. 4371With prefix argument ARG, turn overwrite mode on if ARG is positive,
4371In overwrite mode, printing characters typed in replace existing text 4372otherwise turn it off. In overwrite mode, printing characters typed
4372on a one-for-one basis, rather than pushing it to the right. At the 4373in replace existing text on a one-for-one basis, rather than pushing
4373end of a line, such characters extend the line. Before a tab, 4374it to the right. At the end of a line, such characters extend the line.
4374such characters insert until the tab is filled in. 4375Before a tab, such characters insert until the tab is filled in.
4375\\[quoted-insert] still inserts characters in overwrite mode; this 4376\\[quoted-insert] still inserts characters in overwrite mode; this
4376is supposed to make it easier to insert characters when necessary." 4377is supposed to make it easier to insert characters when necessary."
4377 (interactive "P") 4378 (interactive "P")
@@ -4383,14 +4384,13 @@ is supposed to make it easier to insert characters when necessary."
4383 4384
4384(defun binary-overwrite-mode (arg) 4385(defun binary-overwrite-mode (arg)
4385 "Toggle binary overwrite mode. 4386 "Toggle binary overwrite mode.
4386With arg, turn binary overwrite mode on iff arg is positive. 4387With prefix argument ARG, turn binary overwrite mode on if ARG is
4387In binary overwrite mode, printing characters typed in replace 4388positive, otherwise turn it off. In binary overwrite mode, printing
4388existing text. Newlines are not treated specially, so typing at the 4389characters typed in replace existing text. Newlines are not treated
4389end of a line joins the line to the next, with the typed character 4390specially, so typing at the end of a line joins the line to the next,
4390between them. Typing before a tab character simply replaces the tab 4391with the typed character between them. Typing before a tab character
4391with the character typed. 4392simply replaces the tab with the character typed. \\[quoted-insert]
4392\\[quoted-insert] replaces the text at the cursor, just as ordinary 4393replaces the text at the cursor, just as ordinary typing characters do.
4393typing characters do.
4394 4394
4395Note that binary overwrite mode is not its own minor mode; it is a 4395Note that binary overwrite mode is not its own minor mode; it is a
4396specialization of overwrite mode, entered by setting the 4396specialization of overwrite mode, entered by setting the
@@ -4405,9 +4405,9 @@ specialization of overwrite mode, entered by setting the
4405 4405
4406(define-minor-mode line-number-mode 4406(define-minor-mode line-number-mode
4407 "Toggle Line Number mode. 4407 "Toggle Line Number mode.
4408With arg, turn Line Number mode on iff arg is positive. 4408With arg, turn Line Number mode on if arg is positive, otherwise
4409When Line Number mode is enabled, the line number appears 4409turn it off. When Line Number mode is enabled, the line number
4410in the mode line. 4410appears in the mode line.
4411 4411
4412Line numbers do not appear for very large buffers and buffers 4412Line numbers do not appear for very large buffers and buffers
4413with very long lines; see variables `line-number-display-limit' 4413with very long lines; see variables `line-number-display-limit'
@@ -4416,16 +4416,16 @@ and `line-number-display-limit-width'."
4416 4416
4417(define-minor-mode column-number-mode 4417(define-minor-mode column-number-mode
4418 "Toggle Column Number mode. 4418 "Toggle Column Number mode.
4419With arg, turn Column Number mode on iff arg is positive. 4419With arg, turn Column Number mode on if arg is positive,
4420When Column Number mode is enabled, the column number appears 4420otherwise turn it off. When Column Number mode is enabled, the
4421in the mode line." 4421column number appears in the mode line."
4422 :global t :group 'mode-line) 4422 :global t :group 'mode-line)
4423 4423
4424(define-minor-mode size-indication-mode 4424(define-minor-mode size-indication-mode
4425 "Toggle Size Indication mode. 4425 "Toggle Size Indication mode.
4426With arg, turn Size Indication mode on iff arg is positive. When 4426With arg, turn Size Indication mode on if arg is positive,
4427Size Indication mode is enabled, the size of the accessible part 4427otherwise turn it off. When Size Indication mode is enabled, the
4428of the buffer appears in the mode line." 4428size of the accessible part of the buffer appears in the mode line."
4429 :global t :group 'mode-line) 4429 :global t :group 'mode-line)
4430 4430
4431(defgroup paren-blinking nil 4431(defgroup paren-blinking nil
@@ -4960,7 +4960,7 @@ With prefix argument N, move N items (negative N means move backward)."
4960These functions are called in order with four arguments: 4960These functions are called in order with four arguments:
4961CHOICE - the string to insert in the buffer, 4961CHOICE - the string to insert in the buffer,
4962BUFFER - the buffer in which the choice should be inserted, 4962BUFFER - the buffer in which the choice should be inserted,
4963MINI-P - non-nil iff BUFFER is a minibuffer, and 4963MINI-P - non-nil if BUFFER is a minibuffer, and
4964BASE-SIZE - the number of characters in BUFFER before 4964BASE-SIZE - the number of characters in BUFFER before
4965the string being completed. 4965the string being completed.
4966 4966
@@ -5568,7 +5568,8 @@ See also `normal-erase-is-backspace'."
5568 5568
5569(define-minor-mode visible-mode 5569(define-minor-mode visible-mode
5570 "Toggle Visible mode. 5570 "Toggle Visible mode.
5571With argument ARG turn Visible mode on iff ARG is positive. 5571With argument ARG turn Visible mode on if ARG is positive, otherwise
5572turn it off.
5572 5573
5573Enabling Visible mode makes all invisible text temporarily visible. 5574Enabling Visible mode makes all invisible text temporarily visible.
5574Disabling Visible mode turns off that effect. Visible mode 5575Disabling Visible mode turns off that effect. Visible mode
diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 33e223e4b2b..4425bb0389a 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -209,8 +209,8 @@ If ELEMENT is a string or a character it gets inserted (see also
209 interesting point set by _ 209 interesting point set by _
210 > indent line (or interregion if > _) according to major mode 210 > indent line (or interregion if > _) according to major mode
211 @ add position to `skeleton-positions' 211 @ add position to `skeleton-positions'
212 & do next ELEMENT iff previous moved point 212 & do next ELEMENT if previous moved point
213 | do next ELEMENT iff previous didn't move point 213 | do next ELEMENT if previous didn't move point
214 -num delete num preceding characters (see `skeleton-untabify') 214 -num delete num preceding characters (see `skeleton-untabify')
215 resume: skipped, continue here if quit is signaled 215 resume: skipped, continue here if quit is signaled
216 nil skipped 216 nil skipped
diff --git a/lisp/strokes.el b/lisp/strokes.el
index 528ea477363..de4123453f5 100644
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1370,7 +1370,7 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead."
1370 (goto-char (point-min)))) 1370 (goto-char (point-min))))
1371 1371
1372(defun strokes-alphabetic-lessp (stroke1 stroke2) 1372(defun strokes-alphabetic-lessp (stroke1 stroke2)
1373 "T iff command name for STROKE1 is less than STROKE2's in lexicographic order." 1373 "T if command name for STROKE1 is less than STROKE2's in lexicographic order."
1374 (let ((command-name-1 (symbol-name (cdr stroke1))) 1374 (let ((command-name-1 (symbol-name (cdr stroke1)))
1375 (command-name-2 (symbol-name (cdr stroke2)))) 1375 (command-name-2 (symbol-name (cdr stroke2))))
1376 (string-lessp command-name-1 command-name-2))) 1376 (string-lessp command-name-1 command-name-2)))
@@ -1520,7 +1520,7 @@ Encode/decode your strokes with \\[strokes-encode-buffer],
1520 (eq char ?*))) 1520 (eq char ?*)))
1521 1521
1522;;(defsubst strokes-xor (a b) ### Should I make this an inline function? ### 1522;;(defsubst strokes-xor (a b) ### Should I make this an inline function? ###
1523;; "T iff one and only one of A and B is non-nil; otherwise, returns nil. 1523;; "T if one and only one of A and B is non-nil; otherwise, returns nil.
1524;;NOTE: Don't use this as a numeric xor since it treats all non-nil 1524;;NOTE: Don't use this as a numeric xor since it treats all non-nil
1525;; values as t including `0' (zero)." 1525;; values as t including `0' (zero)."
1526;; (eq (null a) (not (null b)))) 1526;; (eq (null a) (not (null b))))
diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el
index 12129d93602..99e42fe288b 100644
--- a/lisp/t-mouse.el
+++ b/lisp/t-mouse.el
@@ -271,7 +271,8 @@ The (secret) scrollbar interface is not implemented yet."
271;;;###autoload 271;;;###autoload
272(define-minor-mode t-mouse-mode 272(define-minor-mode t-mouse-mode
273 "Toggle t-mouse mode to use the mouse in Linux consoles. 273 "Toggle t-mouse mode to use the mouse in Linux consoles.
274With prefix arg, turn t-mouse mode on iff arg is positive. 274With prefix arg, turn t-mouse mode on if arg is positive, otherwise turn it
275off.
275 276
276This allows the use of the mouse when operating on a Linux console, in the 277This allows the use of the mouse when operating on a Linux console, in the
277same way as you can use the mouse under X11. 278same way as you can use the mouse under X11.
diff --git a/lisp/term.el b/lisp/term.el
index 4d1c660543a..370f643225b 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -470,7 +470,7 @@
470(defvar term-scroll-with-delete nil) ;; term-scroll-with-delete is t if 470(defvar term-scroll-with-delete nil) ;; term-scroll-with-delete is t if
471;; forward scrolling should be implemented by delete to 471;; forward scrolling should be implemented by delete to
472;; top-most line(s); and nil if scrolling should be implemented 472;; top-most line(s); and nil if scrolling should be implemented
473;; by moving term-home-marker. It is set to t iff there is a 473;; by moving term-home-marker. It is set to t if there is a
474;; (non-default) scroll-region OR the alternate buffer is used. 474;; (non-default) scroll-region OR the alternate buffer is used.
475(defvar term-pending-delete-marker) ;; New user input in line mode needs to 475(defvar term-pending-delete-marker) ;; New user input in line mode needs to
476;; be deleted, because it gets echoed by the inferior. 476;; be deleted, because it gets echoed by the inferior.
diff --git a/lisp/userlock.el b/lisp/userlock.el
index 17cbc0c3e55..8e4a6753a31 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -134,7 +134,7 @@ The buffer in question is current when this function is called."
134 (setq answer nil)) 134 (setq answer nil))
135 ((eq answer 'revert) 135 ((eq answer 'revert)
136 (revert-buffer nil (not (buffer-modified-p))) 136 (revert-buffer nil (not (buffer-modified-p)))
137 ; ask confirmation iff buffer modified 137 ; ask confirmation if buffer modified
138 (signal 'file-supersession 138 (signal 'file-supersession
139 (list "File reverted" fn))) 139 (list "File reverted" fn)))
140 ((eq answer 'yield) 140 ((eq answer 'yield)
diff --git a/lisp/vc.el b/lisp/vc.el
index 835d2c50685..9065b2d2bcd 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1103,7 +1103,7 @@ Used by `vc-restore-buffer-context' to later restore the context."
1103 ;; ;; We may want to reparse the compilation buffer after revert 1103 ;; ;; We may want to reparse the compilation buffer after revert
1104 ;; (reparse (and (boundp 'compilation-error-list) ;compile loaded 1104 ;; (reparse (and (boundp 'compilation-error-list) ;compile loaded
1105 ;; ;; Construct a list; each elt is nil or a buffer 1105 ;; ;; Construct a list; each elt is nil or a buffer
1106 ;; ;; iff that buffer is a compilation output buffer 1106 ;; ;; if that buffer is a compilation output buffer
1107 ;; ;; that contains markers into the current buffer. 1107 ;; ;; that contains markers into the current buffer.
1108 ;; (save-current-buffer 1108 ;; (save-current-buffer
1109 ;; (mapcar (lambda (buffer) 1109 ;; (mapcar (lambda (buffer)
diff --git a/lisp/view.el b/lisp/view.el
index 2f541fbf360..f6722f53756 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -375,7 +375,8 @@ Use this argument instead of explicitly setting `view-exit-action'."
375 ;; bindings instead of using the \\[] construction. The reason for this 375 ;; bindings instead of using the \\[] construction. The reason for this
376 ;; is that most commands have more than one key binding. 376 ;; is that most commands have more than one key binding.
377 "Toggle View mode, a minor mode for viewing text but not editing it. 377 "Toggle View mode, a minor mode for viewing text but not editing it.
378With ARG, turn View mode on iff ARG is positive. 378With prefix argument ARG, turn View mode on if ARG is positive, otherwise
379turn it off.
379 380
380Emacs commands that do not change the buffer contents are available as usual. 381Emacs commands that do not change the buffer contents are available as usual.
381Kill commands insert text in kill buffers but do not delete. Other commands 382Kill commands insert text in kill buffers but do not delete. Other commands
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index c38b6563592..3ea8394b0b7 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -763,7 +763,7 @@ If timer is not set, then set it to scan the files in
763;;;###autoload 763;;;###autoload
764(define-minor-mode whitespace-global-mode 764(define-minor-mode whitespace-global-mode
765 "Toggle using Whitespace mode in new buffers. 765 "Toggle using Whitespace mode in new buffers.
766With ARG, turn the mode on iff ARG is positive. 766With ARG, turn the mode on if ARG is positive, otherwise turn it off.
767 767
768When this mode is active, `whitespace-buffer' is added to 768When this mode is active, `whitespace-buffer' is added to
769`find-file-hook' and `kill-buffer-hook'." 769`find-file-hook' and `kill-buffer-hook'."
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 04d91998e2a..6725144e682 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -483,7 +483,7 @@ new value.")
483 483
484;;;###autoload 484;;;###autoload
485(defun widgetp (widget) 485(defun widgetp (widget)
486 "Return non-nil iff WIDGET is a widget." 486 "Return non-nil if WIDGET is a widget."
487 (if (symbolp widget) 487 (if (symbolp widget)
488 (get widget 'widget-type) 488 (get widget 'widget-type)
489 (and (consp widget) 489 (and (consp widget)
@@ -500,7 +500,7 @@ Otherwise, just return the value."
500 value))) 500 value)))
501 501
502(defun widget-member (widget property) 502(defun widget-member (widget property)
503 "Non-nil iff there is a definition in WIDGET for PROPERTY." 503 "Non-nil if there is a definition in WIDGET for PROPERTY."
504 (cond ((plist-member (cdr widget) property) 504 (cond ((plist-member (cdr widget) property)
505 t) 505 t)
506 ((car widget) 506 ((car widget)
@@ -1641,7 +1641,7 @@ If that does not exists, call the value of `widget-complete-field'."
1641 (widget-princ-to-string (widget-get widget :value)))) 1641 (widget-princ-to-string (widget-get widget :value))))
1642 1642
1643(defun widget-default-active (widget) 1643(defun widget-default-active (widget)
1644 "Return t iff this widget active (user modifiable)." 1644 "Return t if this widget is active (user modifiable)."
1645 (or (widget-get widget :always-active) 1645 (or (widget-get widget :always-active)
1646 (and (not (widget-get widget :inactive)) 1646 (and (not (widget-get widget :inactive))
1647 (let ((parent (widget-get widget :parent))) 1647 (let ((parent (widget-get widget :parent)))
diff --git a/lisp/window.el b/lisp/window.el
index 508d78caeb4..7a64588c076 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -120,7 +120,7 @@ bars (top, bottom, or nil)."
120PROC is called with a window as argument. 120PROC is called with a window as argument.
121 121
122Optional second arg MINIBUF t means count the minibuffer window even 122Optional second arg MINIBUF t means count the minibuffer window even
123if not active. MINIBUF nil or omitted means count the minibuffer iff 123if not active. MINIBUF nil or omitted means count the minibuffer only if
124it is active. MINIBUF neither t nor nil means not to count the 124it is active. MINIBUF neither t nor nil means not to count the
125minibuffer even if it is active. 125minibuffer even if it is active.
126 126
@@ -165,7 +165,7 @@ value is returned. If no window satisfies PREDICATE, DEFAULT is
165returned. 165returned.
166 166
167Optional second arg MINIBUF t means count the minibuffer window even 167Optional second arg MINIBUF t means count the minibuffer window even
168if not active. MINIBUF nil or omitted means count the minibuffer iff 168if not active. MINIBUF nil or omitted means count the minibuffer only if
169it is active. MINIBUF neither t nor nil means not to count the 169it is active. MINIBUF neither t nor nil means not to count the
170minibuffer even if it is active. 170minibuffer even if it is active.
171 171
@@ -833,7 +833,7 @@ means suspend autoselection."
833(defun mouse-autoselect-window-select () 833(defun mouse-autoselect-window-select ()
834 "Select window with delayed window autoselection. 834 "Select window with delayed window autoselection.
835If the mouse position has stabilized in a non-selected window, select 835If the mouse position has stabilized in a non-selected window, select
836that window. The minibuffer window is selected iff the minibuffer is 836that window. The minibuffer window is selected only if the minibuffer is
837active. This function is run by `mouse-autoselect-window-timer'." 837active. This function is run by `mouse-autoselect-window-timer'."
838 (condition-case nil 838 (condition-case nil
839 (let* ((mouse-position (mouse-position)) 839 (let* ((mouse-position (mouse-position))
@@ -858,14 +858,14 @@ active. This function is run by `mouse-autoselect-window-timer'."
858 ;; If `mouse-autoselect-window' is positive, select 858 ;; If `mouse-autoselect-window' is positive, select
859 ;; window if the window is the same as before. 859 ;; window if the window is the same as before.
860 (eq window mouse-autoselect-window-window)) 860 (eq window mouse-autoselect-window-window))
861 ;; Otherwise select window iff the mouse is at the same 861 ;; Otherwise select window if the mouse is at the same
862 ;; position as before. Observe that the first test after 862 ;; position as before. Observe that the first test after
863 ;; starting autoselection usually fails since the value of 863 ;; starting autoselection usually fails since the value of
864 ;; `mouse-autoselect-window-position' recorded there is the 864 ;; `mouse-autoselect-window-position' recorded there is the
865 ;; position where the mouse has entered the new window and 865 ;; position where the mouse has entered the new window and
866 ;; not necessarily where the mouse has stopped moving. 866 ;; not necessarily where the mouse has stopped moving.
867 (equal mouse-position mouse-autoselect-window-position)) 867 (equal mouse-position mouse-autoselect-window-position))
868 ;; The minibuffer is a candidate window iff it's active. 868 ;; The minibuffer is a candidate window if it's active.
869 (or (not (window-minibuffer-p window)) 869 (or (not (window-minibuffer-p window))
870 (eq window (active-minibuffer-window)))) 870 (eq window (active-minibuffer-window))))
871 ;; Mouse position has stabilized in non-selected window: Cancel 871 ;; Mouse position has stabilized in non-selected window: Cancel
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index b9d711a3e4b..d14c9c85cd3 100644
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -187,7 +187,8 @@
187;;;###autoload 187;;;###autoload
188(define-minor-mode xterm-mouse-mode 188(define-minor-mode xterm-mouse-mode
189 "Toggle XTerm mouse mode. 189 "Toggle XTerm mouse mode.
190With prefix arg, turn XTerm mouse mode on iff arg is positive. 190With prefix arg, turn XTerm mouse mode on if arg is positive, otherwise turn
191it off.
191 192
192Turn it on to use Emacs mouse commands, and off to use xterm mouse commands. 193Turn it on to use Emacs mouse commands, and off to use xterm mouse commands.
193This works in terminal emulators compatible with xterm. It only 194This works in terminal emulators compatible with xterm. It only
diff --git a/mac/inc/m-mac.h b/mac/inc/m-mac.h
index a5a26cd000c..57bb0976b69 100644
--- a/mac/inc/m-mac.h
+++ b/mac/inc/m-mac.h
@@ -25,7 +25,7 @@ Boston, MA 02110-1301, USA. */
25 operating system this machine is likely to run. 25 operating system this machine is likely to run.
26 USUAL-OPSYS="<name of system .h file here, without the s- or .h>" */ 26 USUAL-OPSYS="<name of system .h file here, without the s- or .h>" */
27 27
28/* Define WORDS_BIG_ENDIAN iff lowest-numbered byte in a word 28/* Define WORDS_BIG_ENDIAN if lowest-numbered byte in a word
29 is the most significant byte. */ 29 is the most significant byte. */
30 30
31#define WORDS_BIG_ENDIAN 31#define WORDS_BIG_ENDIAN
diff --git a/man/ChangeLog b/man/ChangeLog
index 6bd23a3694e..39895247477 100644
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -1,3 +1,8 @@
12007-08-08 Glenn Morris <rgm@gnu.org>
2
3 * glossary.texi (Glossary): Deprecate `iff'.
4 * gnus.texi, sieve.texi: Replace `iff'.
5
12007-08-07 Chong Yidong <cyd@stupidchicken.com> 62007-08-07 Chong Yidong <cyd@stupidchicken.com>
2 7
3 * files.texi (File Conveniences): Document point motion keys in Image 8 * files.texi (File Conveniences): Document point motion keys in Image