Commit 5cb35db5 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 66a85723
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.
 
......
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment