X-Git-Url: https://iankelling.org/git/?p=visible-mark;a=blobdiff_plain;f=visible-mark.el;h=9318403e08d053db571c1aa3465840b2ddb31fe0;hp=8bc719a85fa22ed4e9a72778843c66ef5eee2b74;hb=da960bad95cbb37155e9ec46f8bfdc66f0131bf9;hpb=03c4e729060e42db8eb7239f0de41fad989c4112

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))))