mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(flyspell-external-point-words): Use save-excursion to ensure we don't

Browse Source 
move backward in the search loop, not even one character.
(flyspell-delete-all-overlays): Use remove-overlays directly.
This commit is contained in:
Richard M. Stallman 2005-12-16 02:02:42 +00:00
parent 09b2eb5e8c
commit 324d09a608
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/textmodes/flyspell.el
View File

@ -1332,10 +1332,9 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
(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 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
(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 @@ FLYSPELL-BUFFER."
(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 ... */