diff options
| author | Stefan Monnier | 2005-11-16 16:07:47 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-11-16 16:07:47 +0000 |
| commit | 5cb35db59310dfa9ee60cb07772def32576668a8 (patch) | |
| tree | fda13b1489043c47315de9a2dc1e5468aba069c1 /lisp/textmodes | |
| parent | 66a85723ce781db401719bdf1b23378bd1736583 (diff) | |
| download | emacs-5cb35db59310dfa9ee60cb07772def32576668a8.tar.gz emacs-5cb35db59310dfa9ee60cb07772def32576668a8.zip | |
(flyspell-delete-region-overlays): Use remove-overlays.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 7 |
1 files changed, 1 insertions, 6 deletions
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." | |||
| 1552 | ;*---------------------------------------------------------------------*/ | 1552 | ;*---------------------------------------------------------------------*/ |
| 1553 | (defun flyspell-delete-region-overlays (beg end) | 1553 | (defun flyspell-delete-region-overlays (beg end) |
| 1554 | "Delete overlays used by flyspell in a given region." | 1554 | "Delete overlays used by flyspell in a given region." |
| 1555 | (let ((l (overlays-in beg end))) | 1555 | (remove-overlays beg end 'flyspell-overlay t)) |
| 1556 | (while (consp l) | ||
| 1557 | (progn | ||
| 1558 | (if (flyspell-overlay-p (car l)) | ||
| 1559 | (delete-overlay (car l))) | ||
| 1560 | (setq l (cdr l)))))) | ||
| 1561 | 1556 | ||
| 1562 | 1557 | ||
| 1563 | (defun flyspell-delete-all-overlays () | 1558 | (defun flyspell-delete-all-overlays () |