From da960bad95cbb37155e9ec46f8bfdc66f0131bf9 Mon Sep 17 00:00:00 2001 From: John Foerch Date: Tue, 7 Dec 2010 17:13:51 -0500 Subject: [PATCH] more thorough job of deleting old overlays on startup Before this patch, revert-buffer caused stale overlays to not get cleaned up because it depended on visible-mark-overlays being valid. However, reverting the buffer wipes out local variables. --- visible-mark.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/visible-mark.el b/visible-mark.el index 8bc719a..9318403 100644 --- a/visible-mark.el +++ b/visible-mark.el @@ -67,7 +67,11 @@ :type '(repeat regexp)) (defun visible-mark-initialize-overlays () - (mapc 'delete-overlay visible-mark-overlays) + (mapc + (lambda (x) + (when (eq 'visible-mark (overlay-get x 'category)) + (delete-overlay x))) + (overlays-in (point-min) (point-max))) (let (overlays) (dotimes (i visible-mark-max) (let ((overlay (make-overlay (point-min) (point-min)))) -- 2.30.2