emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp ChangeLog textmodes/flyspell.el


From: Glenn Morris
Subject: [Emacs-diffs] emacs/lisp ChangeLog textmodes/flyspell.el
Date: Sat, 17 Oct 2009 22:43:19 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/17 22:43:18

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : flyspell.el 

Log message:
        (flyspell-large-region, flyspell-word)
        (flyspell-get-word, flyspell-large-region)
        (flyspell-auto-correct-previous-word): Doc/error message fixes.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16451&r2=1.16452
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/flyspell.el?cvsroot=emacs&r1=1.149&r2=1.150

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16451
retrieving revision 1.16452
diff -u -b -r1.16451 -r1.16452
--- ChangeLog   17 Oct 2009 14:28:44 -0000      1.16451
+++ ChangeLog   17 Oct 2009 22:43:13 -0000      1.16452
@@ -1,3 +1,9 @@
+2009-10-17  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * Makefile.in (ELCFILES): Add ede/shell.

Index: textmodes/flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.149
retrieving revision 1.150
diff -u -b -r1.149 -r1.150
--- textmodes/flyspell.el       17 Oct 2009 03:09:53 -0000      1.149
+++ textmodes/flyspell.el       17 Oct 2009 22:43:18 -0000      1.150
@@ -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")
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]