diff options
| author | Glenn Morris | 2007-08-08 07:40:09 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-08-08 07:40:09 +0000 |
| commit | 4837b516ea56c6cc2b3ce823b04078b10b2defc6 (patch) | |
| tree | 8d2cf5aab413be0a169520329f869601e2fed0bf | |
| parent | 5453fa41122e3278a442f4fab855561e41f4034f (diff) | |
| download | emacs-4837b516ea56c6cc2b3ce823b04078b10b2defc6.tar.gz emacs-4837b516ea56c6cc2b3ce823b04078b10b2defc6.zip | |
Replace `iff' in doc-strings and comments.
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. |
| 42 | With argument ARG, turn abbrev mode on iff ARG is positive. | 42 | With optional argument ARG, turn abbrev mode on if ARG is |
| 43 | In Abbrev mode, inserting an abbreviation causes it to expand | 43 | positive, otherwise turn it off. In Abbrev mode, inserting an |
| 44 | and be replaced by its expansion." | 44 | abbreviation 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 | ||
| 1661 | Optional arg forces mode to re-initialize iff arg is positive num or | 1661 | Optional prefix argument TOGGLE forces the mode to re-initialize |
| 1662 | symbol. Allout outline mode always runs as a minor mode. | 1662 | if it is positive, otherwise it turns the mode off. Allout |
| 1663 | outline mode always runs as a minor mode. | ||
| 1663 | 1664 | ||
| 1664 | Allout outline mode provides extensive outline oriented formatting and | 1665 | Allout outline mode provides extensive outline oriented formatting and |
| 1665 | manipulation. It enables structural editing of outlines, as well as | 1666 | manipulation. 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. |
| 318 | With arg, turn Tail mode on iff arg is positive. | 318 | With arg, turn Tail mode on if arg is positive, otherwise turn it off. |
| 319 | 319 | ||
| 320 | When Tail mode is enabled, the tail of the file is constantly | 320 | When Tail mode is enabled, the tail of the file is constantly |
| 321 | followed, as with the shell command `tail -f'. This means that | 321 | followed, 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 "\ |
| 477 | Alist saying how to show minor modes in the mode line. | 477 | Alist saying how to show minor modes in the mode line. |
| 478 | Each element looks like (VARIABLE STRING); | 478 | Each element looks like (VARIABLE STRING); |
| 479 | STRING is included in the mode line iff VARIABLE's value is non-nil. | 479 | STRING is included in the mode line if VARIABLE's value is non-nil. |
| 480 | 480 | ||
| 481 | Actually, STRING need not be a string; any possible mode-line element | 481 | Actually, STRING need not be a string; any possible mode-line element |
| 482 | is okay. See `mode-line-format'.") | 482 | is 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 | ||
| 666 | To actually save the value, call `custom-save-all'. | 666 | To actually save the value, call `custom-save-all'. |
| 667 | 667 | ||
| 668 | Return non-nil iff the `saved-value' property actually changed." | 668 | Return 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 |
| 695 | default value. Otherwise, set it to nil. | 695 | default value. Otherwise, set it to nil. |
| 696 | 696 | ||
| 697 | Return non-nil iff the `customized-value' property actually changed." | 697 | Return 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. |
| 65 | CODE is the exit code of the process. It should be 0 iff no diffs were found." | 65 | CODE is the exit code of the process. It should be 0 only if no diffs |
| 66 | were 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. |
| 189 | With prefix arg, turn Double mode on iff arg is positive. | 189 | With prefix argument ARG, turn Double mode on if ARG is positive, otherwise |
| 190 | turn it off. | ||
| 190 | 191 | ||
| 191 | When Double mode is on, some keys will insert different strings | 192 | When Double mode is on, some keys will insert different strings |
| 192 | when pressed twice. See variable `double-map' for details." | 193 | when 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. |
| 1463 | D1 and D2 can either be both directories or both regular files. | 1463 | D1 and D2 can either be both directories or both regular files. |
| 1464 | Symlinks and the likes are not handled. | 1464 | Symlinks and the likes are not handled. |
| 1465 | If FILTER-RE is non-nil, recursive checking in directories | 1465 | If 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. |
| 3944 | With arg, set read-only iff arg is positive. | 3944 | With prefix argument ARG, make the buffer read-only if ARG is |
| 3945 | If visiting file read-only and `view-read-only' is non-nil, enter view mode." | 3945 | positive, otherwise make it writable. If visiting file read-only |
| 3946 | and `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. |
| 4571 | The generated regexp will match a filename iff the filename | 4572 | The generated regexp will match a filename only if the filename |
| 4572 | matches that wildcard according to shell rules. Only wildcards known | 4573 | matches that wildcard according to shell rules. Only wildcards known |
| 4573 | by `sh' are supported." | 4574 | by `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 | ||
| 356 | where MATCHER can be either the regexp to search for, or the function name to | 356 | where MATCHER can be either the regexp to search for, or the function name to |
| 357 | call to make the search (called with one argument, the limit of the search; | 357 | call to make the search (called with one argument, the limit of the search; |
| 358 | it should return non-nil, move point, and set `match-data' appropriately iff | 358 | it should return non-nil, move point, and set `match-data' appropriately if |
| 359 | it succeeds; like `re-search-forward' would). | 359 | it succeeds; like `re-search-forward' would). |
| 360 | MATCHER regexps can be generated via the function `regexp-opt'. | 360 | MATCHER 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 | |||
| 1068 | not fall in the middle of one. | 1068 | not fall in the middle of one. |
| 1069 | Each function is called with no argument; it is expected to adjust the | 1069 | Each function is called with no argument; it is expected to adjust the |
| 1070 | dynamically bound variables `font-lock-beg' and `font-lock-end'; and return | 1070 | dynamically bound variables `font-lock-beg' and `font-lock-end'; and return |
| 1071 | non-nil iff it did make such an adjustment. | 1071 | non-nil if it did make such an adjustment. |
| 1072 | These functions are run in turn repeatedly until they all return nil. | 1072 | These functions are run in turn repeatedly until they all return nil. |
| 1073 | Put first the functions more likely to cause a change and cheaper to compute.") | 1073 | Put 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. |
| 1747 | Sets various variables using `font-lock-defaults' (or, if nil, using | 1747 | Sets 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. |
| 1313 | With a numeric argument, turn blinking cursor mode on iff ARG is positive. | 1313 | With a numeric argument, turn blinking cursor mode on if ARG is positive, |
| 1314 | When blinking cursor mode is enabled, the cursor of the selected | 1314 | otherwise turn it off. When blinking cursor mode is enabled, the |
| 1315 | window blinks. | 1315 | cursor of the selected window blinks. |
| 1316 | 1316 | ||
| 1317 | Note that this command is effective only when Emacs | 1317 | Note that this command is effective only when Emacs |
| 1318 | displays through a window system, because then Emacs does its own | 1318 | displays 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. | |||
| 1331 | With no prefix arg, use the filename sans its directory of each marked file. | 1331 | With no prefix arg, use the filename sans its directory of each marked file. |
| 1332 | With a zero prefix arg, use the complete filename of each marked file. | 1332 | With a zero prefix arg, use the complete filename of each marked file. |
| 1333 | With \\[universal-argument], use the filename of each marked file relative | 1333 | With \\[universal-argument], use the filename of each marked file relative |
| 1334 | to `ibuffer-default-directory' iff non-nil, otherwise `default-directory'. | 1334 | to `ibuffer-default-directory' if non-nil, otherwise `default-directory'. |
| 1335 | 1335 | ||
| 1336 | You can then feed the file name(s) to other commands with \\[yank]." | 1336 | You 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. |
| 1838 | Don't set the ibuffer modification flag iff NOMODIFY is non-nil. | 1838 | Set the ibuffer modification flag unless NOMODIFY is non-nil. |
| 1839 | 1839 | ||
| 1840 | If optional argument GROUP is non-nil, then only call FUNCTION on | 1840 | If optional argument GROUP is non-nil, then only call FUNCTION on |
| 1841 | buffers in filtering group GROUP. | 1841 | buffers 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. |
| 2270 | Try to restore the previous window configuration iff | 2270 | Try 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 | ||
| 102 | This hook is run during minibuffer setup iff icomplete will be active. | 102 | This hook is run during minibuffer setup if icomplete is active. |
| 103 | It is intended for use in customizing icomplete for interoperation | 103 | It is intended for use in customizing icomplete for interoperation |
| 104 | with other features and packages. For instance: | 104 | with 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. |
| 171 | With a numeric argument, turn Icomplete mode on iff ARG is positive." | 171 | With a numeric argument, turn Icomplete mode on if ARG is positive, |
| 172 | otherwise 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 | ||
| 901 | This hook is run during minibuffer setup iff `ido' will be active. | 901 | This hook is run during minibuffer setup if `ido' is active. |
| 902 | It is intended for use in customizing ido for interoperation | 902 | It is intended for use in customizing ido for interoperation |
| 903 | with other packages. For instance: | 903 | with 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. |
| 346 | This function is intended to be used from `magic-fallback-mode-alist'. | 346 | This function is intended to be used from `magic-fallback-mode-alist'. |
| 347 | 347 | ||
| 348 | The buffer is considered to contain an auto-detectable image if | 348 | The 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 | |||
| 727 | appear in the menu. See the info section on Regexps for more | 727 | appear in the menu. See the info section on Regexps for more |
| 728 | information. REGEXP may also be a function, called without | 728 | information. REGEXP may also be a function, called without |
| 729 | arguments. It is expected to search backwards. It shall return | 729 | arguments. It is expected to search backwards. It shall return |
| 730 | true and set `match-data' iff it finds another element. | 730 | true and set `match-data' if it finds another element. |
| 731 | 731 | ||
| 732 | INDEX points to the substring in REGEXP that contains the | 732 | INDEX points to the substring in REGEXP that contains the |
| 733 | name (of the function, variable or type) that is to appear in the | 733 | name (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. |
| 148 | See the documentation of the function `info-lookup-add-help' | 148 | See the documentation of the function `info-lookup-add-help' |
| 149 | for more details." | 149 | for 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 | ||
| 399 | This hook is run during minibuffer setup iff `iswitchb' will be active. | 399 | This hook is run during minibuffer setup if `iswitchb' is active. |
| 400 | For instance: | 400 | For 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. |
| 1444 | See the variable `iswitchb-case' for details." | 1444 | See 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. |
| 1453 | With arg, turn Iswitchb mode on if and only iff ARG is positive. | 1453 | With arg, turn Iswitchb mode on if ARG is positive, otherwise turn it off. |
| 1454 | This mode enables switching between buffers using substrings. See | 1454 | This 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. |
| 571 | Return non-nil iff it is." | 571 | Return 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 | ||
| 4944 | If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist', | 4944 | If 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; |
| 4946 | otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is | 4946 | otherwise, update PostScript printer menu if `pr-ps-printer-menu-modified' is |
| 4947 | non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is | 4947 | non-nil, update text printer menu if `pr-txt-printer-menu-modified' is |
| 4948 | non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is | 4948 | non-nil, and update PostScript File menus if `pr-ps-utility-menu-modified' is |
| 4949 | non-nil. | 4949 | non-nil. |
| 4950 | 4950 | ||
| 4951 | If menu binding was not done, calls `pr-menu-bind'." | 4951 | If 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." | |||
| 178 | If it is valid, set the register `r0' to 1, else set it to 0.") | 178 | If 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. |
| 289 | Each may be a host or cluster name; if they are clusters, regexp of SITE1 will | 289 | Each may be a host or cluster name; if they are clusters, regexp of SITE1 will |
| 290 | be matched against the primary of SITE2." | 290 | be 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. |
| 4346 | With arg, truncate long lines iff arg is positive. | 4346 | With prefix argument ARG, truncate long lines if ARG is positive, |
| 4347 | Note that in side-by-side windows, truncation is always enabled." | 4347 | otherwise don't truncate them. Note that in side-by-side |
| 4348 | windows, 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. |
| 4370 | With arg, turn overwrite mode on iff arg is positive. | 4371 | With prefix argument ARG, turn overwrite mode on if ARG is positive, |
| 4371 | In overwrite mode, printing characters typed in replace existing text | 4372 | otherwise turn it off. In overwrite mode, printing characters typed |
| 4372 | on a one-for-one basis, rather than pushing it to the right. At the | 4373 | in replace existing text on a one-for-one basis, rather than pushing |
| 4373 | end of a line, such characters extend the line. Before a tab, | 4374 | it to the right. At the end of a line, such characters extend the line. |
| 4374 | such characters insert until the tab is filled in. | 4375 | Before 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 |
| 4376 | is supposed to make it easier to insert characters when necessary." | 4377 | is 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. |
| 4386 | With arg, turn binary overwrite mode on iff arg is positive. | 4387 | With prefix argument ARG, turn binary overwrite mode on if ARG is |
| 4387 | In binary overwrite mode, printing characters typed in replace | 4388 | positive, otherwise turn it off. In binary overwrite mode, printing |
| 4388 | existing text. Newlines are not treated specially, so typing at the | 4389 | characters typed in replace existing text. Newlines are not treated |
| 4389 | end of a line joins the line to the next, with the typed character | 4390 | specially, so typing at the end of a line joins the line to the next, |
| 4390 | between them. Typing before a tab character simply replaces the tab | 4391 | with the typed character between them. Typing before a tab character |
| 4391 | with the character typed. | 4392 | simply replaces the tab with the character typed. \\[quoted-insert] |
| 4392 | \\[quoted-insert] replaces the text at the cursor, just as ordinary | 4393 | replaces the text at the cursor, just as ordinary typing characters do. |
| 4393 | typing characters do. | ||
| 4394 | 4394 | ||
| 4395 | Note that binary overwrite mode is not its own minor mode; it is a | 4395 | Note that binary overwrite mode is not its own minor mode; it is a |
| 4396 | specialization of overwrite mode, entered by setting the | 4396 | specialization 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. |
| 4408 | With arg, turn Line Number mode on iff arg is positive. | 4408 | With arg, turn Line Number mode on if arg is positive, otherwise |
| 4409 | When Line Number mode is enabled, the line number appears | 4409 | turn it off. When Line Number mode is enabled, the line number |
| 4410 | in the mode line. | 4410 | appears in the mode line. |
| 4411 | 4411 | ||
| 4412 | Line numbers do not appear for very large buffers and buffers | 4412 | Line numbers do not appear for very large buffers and buffers |
| 4413 | with very long lines; see variables `line-number-display-limit' | 4413 | with 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. |
| 4419 | With arg, turn Column Number mode on iff arg is positive. | 4419 | With arg, turn Column Number mode on if arg is positive, |
| 4420 | When Column Number mode is enabled, the column number appears | 4420 | otherwise turn it off. When Column Number mode is enabled, the |
| 4421 | in the mode line." | 4421 | column 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. |
| 4426 | With arg, turn Size Indication mode on iff arg is positive. When | 4426 | With arg, turn Size Indication mode on if arg is positive, |
| 4427 | Size Indication mode is enabled, the size of the accessible part | 4427 | otherwise turn it off. When Size Indication mode is enabled, the |
| 4428 | of the buffer appears in the mode line." | 4428 | size 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)." | |||
| 4960 | These functions are called in order with four arguments: | 4960 | These functions are called in order with four arguments: |
| 4961 | CHOICE - the string to insert in the buffer, | 4961 | CHOICE - the string to insert in the buffer, |
| 4962 | BUFFER - the buffer in which the choice should be inserted, | 4962 | BUFFER - the buffer in which the choice should be inserted, |
| 4963 | MINI-P - non-nil iff BUFFER is a minibuffer, and | 4963 | MINI-P - non-nil if BUFFER is a minibuffer, and |
| 4964 | BASE-SIZE - the number of characters in BUFFER before | 4964 | BASE-SIZE - the number of characters in BUFFER before |
| 4965 | the string being completed. | 4965 | the 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. |
| 5571 | With argument ARG turn Visible mode on iff ARG is positive. | 5571 | With argument ARG turn Visible mode on if ARG is positive, otherwise |
| 5572 | turn it off. | ||
| 5572 | 5573 | ||
| 5573 | Enabling Visible mode makes all invisible text temporarily visible. | 5574 | Enabling Visible mode makes all invisible text temporarily visible. |
| 5574 | Disabling Visible mode turns off that effect. Visible mode | 5575 | Disabling 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. |
| 274 | With prefix arg, turn t-mouse mode on iff arg is positive. | 274 | With prefix arg, turn t-mouse mode on if arg is positive, otherwise turn it |
| 275 | off. | ||
| 275 | 276 | ||
| 276 | This allows the use of the mouse when operating on a Linux console, in the | 277 | This allows the use of the mouse when operating on a Linux console, in the |
| 277 | same way as you can use the mouse under X11. | 278 | same 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. |
| 378 | With ARG, turn View mode on iff ARG is positive. | 378 | With prefix argument ARG, turn View mode on if ARG is positive, otherwise |
| 379 | turn it off. | ||
| 379 | 380 | ||
| 380 | Emacs commands that do not change the buffer contents are available as usual. | 381 | Emacs commands that do not change the buffer contents are available as usual. |
| 381 | Kill commands insert text in kill buffers but do not delete. Other commands | 382 | Kill 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. |
| 766 | With ARG, turn the mode on iff ARG is positive. | 766 | With ARG, turn the mode on if ARG is positive, otherwise turn it off. |
| 767 | 767 | ||
| 768 | When this mode is active, `whitespace-buffer' is added to | 768 | When 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)." | |||
| 120 | PROC is called with a window as argument. | 120 | PROC is called with a window as argument. |
| 121 | 121 | ||
| 122 | Optional second arg MINIBUF t means count the minibuffer window even | 122 | Optional second arg MINIBUF t means count the minibuffer window even |
| 123 | if not active. MINIBUF nil or omitted means count the minibuffer iff | 123 | if not active. MINIBUF nil or omitted means count the minibuffer only if |
| 124 | it is active. MINIBUF neither t nor nil means not to count the | 124 | it is active. MINIBUF neither t nor nil means not to count the |
| 125 | minibuffer even if it is active. | 125 | minibuffer even if it is active. |
| 126 | 126 | ||
| @@ -165,7 +165,7 @@ value is returned. If no window satisfies PREDICATE, DEFAULT is | |||
| 165 | returned. | 165 | returned. |
| 166 | 166 | ||
| 167 | Optional second arg MINIBUF t means count the minibuffer window even | 167 | Optional second arg MINIBUF t means count the minibuffer window even |
| 168 | if not active. MINIBUF nil or omitted means count the minibuffer iff | 168 | if not active. MINIBUF nil or omitted means count the minibuffer only if |
| 169 | it is active. MINIBUF neither t nor nil means not to count the | 169 | it is active. MINIBUF neither t nor nil means not to count the |
| 170 | minibuffer even if it is active. | 170 | minibuffer 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. |
| 835 | If the mouse position has stabilized in a non-selected window, select | 835 | If the mouse position has stabilized in a non-selected window, select |
| 836 | that window. The minibuffer window is selected iff the minibuffer is | 836 | that window. The minibuffer window is selected only if the minibuffer is |
| 837 | active. This function is run by `mouse-autoselect-window-timer'." | 837 | active. 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. |
| 190 | With prefix arg, turn XTerm mouse mode on iff arg is positive. | 190 | With prefix arg, turn XTerm mouse mode on if arg is positive, otherwise turn |
| 191 | it off. | ||
| 191 | 192 | ||
| 192 | Turn it on to use Emacs mouse commands, and off to use xterm mouse commands. | 193 | Turn it on to use Emacs mouse commands, and off to use xterm mouse commands. |
| 193 | This works in terminal emulators compatible with xterm. It only | 194 | This 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 @@ | |||
| 1 | 2007-08-08 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * glossary.texi (Glossary): Deprecate `iff'. | ||
| 4 | * gnus.texi, sieve.texi: Replace `iff'. | ||
| 5 | |||
| 1 | 2007-08-07 Chong Yidong <cyd@stupidchicken.com> | 6 | 2007-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 |