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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d07c3fbf736d059044390ba667413ff7aea3fd2..018fd0b466488c6b7d6da0eb05a586933ab6f055 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 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.
 

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 0bfdadc28ab9abb0a4f978db7e0b36fa2354bc34..33e66978cb545507d3dc59fe75ce870fa1ce18a7 100644 (file)
--- 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 ()