From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 16 Nov 2005 16:07:47 +0000 (+0000)
Subject: (flyspell-delete-region-overlays): Use remove-overlays.
X-Git-Tag: emacs-pretest-22.0.90~5847
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5cb35db59310dfa9ee60cb07772def32576668a8;p=emacs.git

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

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 ()