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