Mercurial > emacs
changeset 105656:20193e169a43
(flyspell-large-region, flyspell-word)
(flyspell-get-word, flyspell-large-region)
(flyspell-auto-correct-previous-word): Doc/error message fixes.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 17 Oct 2009 22:43:13 +0000 |
| parents | 3084c40960c1 |
| children | 82e88f8838d4 |
| files | lisp/ChangeLog lisp/textmodes/flyspell.el |
| diffstat | 2 files changed, 17 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 17 14:28:44 2009 +0000 +++ b/lisp/ChangeLog Sat Oct 17 22:43:13 2009 +0000 @@ -1,3 +1,9 @@ +2009-10-17 Glenn Morris <rgm@gnu.org> + + * textmodes/flyspell.el (flyspell-large-region, flyspell-word) + (flyspell-get-word, flyspell-large-region) + (flyspell-auto-correct-previous-word): Doc/error message fixes. + 2009-10-17 Chong Yidong <cyd@stupidchicken.com> * Makefile.in (ELCFILES): Add ede/shell.
--- a/lisp/textmodes/flyspell.el Sat Oct 17 14:28:44 2009 +0000 +++ b/lisp/textmodes/flyspell.el Sat Oct 17 22:43:13 2009 +0000 @@ -242,7 +242,7 @@ Doubled words are not detected in a large region, because Ispell does not check for them. -If `flyspell-large-region' is nil, all regions are treated as small." +If this variable is nil, all regions are treated as small." :group 'flyspell :version "21.1" :type '(choice number (const :tag "All small" nil))) @@ -1011,7 +1011,10 @@ ;;* flyspell-word ... */ ;;*---------------------------------------------------------------------*/ (defun flyspell-word (&optional following) - "Spell check a word." + "Spell check a word. +If the optional argument FOLLOWING, or, when called interactively +`ispell-following-word', is non-nil, checks the following (rather +than preceding) word when the cursor is not over a word." (interactive (list ispell-following-word)) (ispell-set-spellchecker-params) ; Initialize variables and dicts alists (save-excursion @@ -1252,13 +1255,10 @@ ;;*---------------------------------------------------------------------*/ (defun flyspell-get-word (&optional following extra-otherchars) "Return the word for spell-checking according to Ispell syntax. -If optional argument FOLLOWING is non-nil or if `flyspell-following-word' -is non-nil when called interactively, then the following word -\(rather than preceding\) is checked when the cursor is not over a word. -Optional second argument contains otherchars that can be included in word -many times. - -Word syntax described by `flyspell-dictionary-alist' (which see)." +Optional argument FOLLOWING non-nil means to get the following +\(rather than preceding) word when the cursor is not over a word. +Optional second argument EXTRA-OTHERCHARS is a regexp of characters +that may be included as part of a word (see `ispell-dictionary-alist')." (let* ((flyspell-casechars (flyspell-get-casechars)) (flyspell-not-casechars (flyspell-get-not-casechars)) (ispell-otherchars (ispell-get-otherchars)) @@ -1560,7 +1560,7 @@ (flyspell-delete-region-overlays beg end) (flyspell-check-region-doublons beg end)) (flyspell-external-point-words)) - (error "Can't check region..."))))) + (error "Can't check region"))))) ;;*---------------------------------------------------------------------*/ ;;* flyspell-region ... */ @@ -1979,7 +1979,7 @@ ;;* flyspell-auto-correct-previous-word ... */ ;;*---------------------------------------------------------------------*/ (defun flyspell-auto-correct-previous-word (position) - "Auto correct the first mispelled word that occurs before point. + "Auto correct the first misspelled word that occurs before point. But don't look beyond what's visible on the screen." (interactive "d")