Re: flyspell-buffer with large .tex files hang

[Richard M. Stallman]

Does this fix it?

If not, could you tell me the value of the local variable `word'?


Index: flyspell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.90
diff -c -c -r1.90 flyspell.el
*** flyspell.el 2 Dec 2005 13:16:48 -0000       1.90
--- flyspell.el 4 Dec 2005 17:42:23 -0000
***************
*** 1332,1341 ****
              (while keep
                (if (search-forward word
                                    flyspell-large-region-end t)
!                   (progn
                      (goto-char (- (point) 1))
!                     (let* ((match-point (point)) ; flyspell-get-word might 
move it
!                            (flyword-prev-l (flyspell-get-word nil))
                             (flyword-prev (car flyword-prev-l))
                             (size-match (= (length flyword-prev) (length 
word))))
                        (when (or
--- 1332,1340 ----
              (while keep
                (if (search-forward word
                                    flyspell-large-region-end t)
!                   (save-excursion
                      (goto-char (- (point) 1))
!                     (let* ((flyword-prev-l (flyspell-get-word nil))
                             (flyword-prev (car flyword-prev-l))
                             (size-match (= (length flyword-prev) (length 
word))))
                        (when (or
***************
*** 1362,1368 ****
                          (setq keep nil)
                          (flyspell-word)
                          ;; Next search will begin from end of last match
!                         (setq flyspell-large-region-beg match-point))))
                  ;; Record if misspelling is not found and try new one
                  (add-to-list 'words-not-found
                               (concat " -> " word " - "
--- 1361,1367 ----
                          (setq keep nil)
                          (flyspell-word)
                          ;; Next search will begin from end of last match
!                         )))
                  ;; Record if misspelling is not found and try new one
                  (add-to-list 'words-not-found
                               (concat " -> " word " - "
***************
*** 1558,1564 ****
  
  (defun flyspell-delete-all-overlays ()
    "Delete all the overlays used by flyspell."
!   (flyspell-delete-region-overlays (point-min) (point-max)))
  
  ;;*---------------------------------------------------------------------*/
  ;;*    flyspell-unhighlight-at ...                                      */
--- 1557,1563 ----
  
  (defun flyspell-delete-all-overlays ()
    "Delete all the overlays used by flyspell."
!   (remove-overlays (point-min) (point-max) 'flyspell-overlay t))
  
  ;;*---------------------------------------------------------------------*/
  ;;*    flyspell-unhighlight-at ...                                      */