mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-14 09:39:42 +00:00
(flyspell-external-point-words): Use save-excursion to ensure we don't
move backward in the search loop, not even one character. (flyspell-delete-all-overlays): Use remove-overlays directly.
This commit is contained in:
parent
09b2eb5e8c
commit
324d09a608
@ -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 ... */
|
||||
|
Loading…
Reference in New Issue
Block a user