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

[Richard M. Stallman]

Index: emacs/lisp/textmodes/flyspell.el
diff -u emacs/lisp/textmodes/flyspell.el:1.90 
emacs/lisp/textmodes/flyspell.el:1.91
--- emacs/lisp/textmodes/flyspell.el:1.90       Fri Dec  2 13:16:48 2005
+++ emacs/lisp/textmodes/flyspell.el    Fri Dec 16 02:02:42 2005
@@ -1332,10 +1332,9 @@
              (while keep
                (if (search-forward word
                                    flyspell-large-region-end t)
-                   (progn
+                   (save-excursion
                      (goto-char (- (point) 1))
-                     (let* ((match-point (point)) ; flyspell-get-word might 
move it
-                            (flyword-prev-l (flyspell-get-word nil))
+                     (let* ((flyword-prev-l (flyspell-get-word nil))
                             (flyword-prev (car flyword-prev-l))
                             (size-match (= (length flyword-prev) (length 
word))))
                        (when (or
@@ -1362,7 +1361,7 @@
                          (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 " - "
@@ -1558,7 +1557,7 @@
 
 (defun flyspell-delete-all-overlays ()
   "Delete all the overlays used by flyspell."
-  (flyspell-delete-region-overlays (point-min) (point-max)))
+  (remove-overlays (point-min) (point-max) 'flyspell-overlay t))
 
 ;;*---------------------------------------------------------------------*/
 ;;*    flyspell-unhighlight-at ...                                      */