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

2 files changed, 4 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d07c3fbf73..018fd0b4664 100644
--- 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 0bfdadc28ab..33e66978cb5 100644
--- 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 ()