From 00a2681be87b3d97a5d9a472dac72f3d75cd2b04 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Oct 2005 15:52:07 +0000 Subject: [PATCH] (flyspell-external-point-words): Detect when WORD can't be checked properly because flyspell-get-word finds just part of it, and move on. --- lisp/textmodes/flyspell.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 -- 2.39.5