(flyspell-external-point-words): Pass nil to flyspell-get-word.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f0c3cc6e91114c9f7a610029b2d2fc384b2fa45..c53fb3cf44f0bb8477e7c4c1684c4d6cda475109 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-01  Richard M. Stallman  <rms@gnu.org>
+
+       * textmodes/flyspell.el (flyspell-external-point-words):
+       Pass nil to flyspell-get-word.
+
 2005-11-02  Kim F. Storm  <storm@cua.dk>
 
        * menu-bar.el (menu-bar-options-menu): Show "Shift Movement (CUA)"

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 253485fc87f68d1349e0a15e9aa6c15692ecf19a..f65ffd0ba5c20f4181b6ab060ca175f34db6c6e2 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1360,7 +1360,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
                          ;; Detect when WORD can't be checked properly
                          ;; because flyspell-get-word finds
                          ;; just part of it, and treat that as ok.
-                         (if (< (length (flyspell-get-word following))
+                         (if (< (length (flyspell-get-word nil))
                                 (length word))
                              nil
                            (flyspell-word))))