diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/textmodes/flyspell.el | 7 |
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 () |