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

[Richard M . Stallman]

Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.81 
emacs/lisp/textmodes/flyspell.el:1.82
*** emacs/lisp/textmodes/flyspell.el:1.81       Fri Oct 28 04:22:19 2005
--- emacs/lisp/textmodes/flyspell.el    Sun Oct 30 15:52:07 2005
***************
*** 1356,1362 ****
                  (progn
                    (setq flyspell-large-region-beg (point))
                    (goto-char (- (point) 1))
!                   (setq keep (flyspell-word)))
                (error "Bug: misspelled word `%s' (output pos %d) not found in 
buffer"
                       word wordpos)))))))
      ;; we are done
--- 1356,1369 ----
                  (progn
                    (setq flyspell-large-region-beg (point))
                    (goto-char (- (point) 1))
!                   (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