(flyspell-delete-region-overlays): Use remove-overlays.

5cb35db5 · Stefan Monnier · 66a85723 · 5cb35db5 · 5cb35db5
Commit 5cb35db5 authored Nov 16, 2005 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 6 deletions

lisp/ChangeLog lisp/ChangeLog +3 -0

lisp/textmodes/flyspell.el lisp/textmodes/flyspell.el +1 -6

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 2005-11-16  Stefan Monnier  <monnier@iro.umontreal.ca>
  
+	* textmodes/flyspell.el (flyspell-delete-region-overlays): Use
+	remove-overlays.
+
 	* calendar/diary-lib.el (diary-list-entries): Also hide the
 	terminating newline.
  

--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1552,12 +1552,7 @@ FLYSPELL-BUFFER."
 ;*---------------------------------------------------------------------*/
 (defun flyspell-delete-region-overlays (beg end)
  "Delete overlays used by flyspell in a given region."
-  (let ((l (overlays-in beg end)))
-    (while (consp l)
-      (progn
-	(if (flyspell-overlay-p (car l))
-	    (delete-overlay (car l)))
-	(setq l (cdr l))))))
+  (remove-overlays beg end 'flyspell-overlay t))


 (defun flyspell-delete-all-overlays ()