1552 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1553 |
(defun flyspell-delete-region-overlays (beg end) |
(defun flyspell-delete-region-overlays (beg end) |
1554 |
"Delete overlays used by flyspell in a given region." |
"Delete overlays used by flyspell in a given region." |
1555 |
(let ((l (overlays-in beg end))) |
(remove-overlays beg end 'flyspell-overlay t)) |
|
(while (consp l) |
|
|
(progn |
|
|
(if (flyspell-overlay-p (car l)) |
|
|
(delete-overlay (car l))) |
|
|
(setq l (cdr l)))))) |
|
1556 |
|
|
1557 |
|
|
1558 |
(defun flyspell-delete-all-overlays () |
(defun flyspell-delete-all-overlays () |