From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Oct 2005 15:52:07 +0000 (+0000)
Subject: (flyspell-external-point-words):
X-Git-Tag: emacs-pretest-22.0.90~6185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00a2681be87b3d97a5d9a472dac72f3d75cd2b04;p=emacs.git

(flyspell-external-point-words):
Detect when WORD can't be checked properly because
flyspell-get-word finds just part of it, and move on.
---

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index ee94ff01d64..253485fc87f 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1356,7 +1356,14 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
 		  (progn
 		    (setq flyspell-large-region-beg (point))
 		    (goto-char (- (point) 1))
-		    (setq keep (flyspell-word)))
+		    (setq keep
+			  ;; 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))
+				 (length word))
+			      nil
+			    (flyspell-word))))
 		(error "Bug: misspelled word `%s' (output pos %d) not found in buffer"
 		       word wordpos)))))))
     ;; we are done