Mercurial > emacs

diff lisp/textmodes/flyspell.el @ 66930:bf55d63c7dd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(flyspell-delete-region-overlays): Use remove-overlays.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 16 Nov 2005 16:07:47 +0000
parents 30d90742b0a8
children 29c20df6248f
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el	Wed Nov 16 16:04:29 2005 +0000
+++ b/lisp/textmodes/flyspell.el	Wed Nov 16 16:07:47 2005 +0000
@@ -1552,12 +1552,7 @@
 ;*---------------------------------------------------------------------*/
 (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 ()