iankelling.org
/
git
/
visible-mark
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more thorough job of deleting old overlays on startup
[visible-mark]
/
visible-mark.el
diff --git
a/visible-mark.el
b/visible-mark.el
index 8bc719a85fa22ed4e9a72778843c66ef5eee2b74..9318403e08d053db571c1aa3465840b2ddb31fe0 100644
(file)
--- a/
visible-mark.el
+++ b/
visible-mark.el
@@
-67,7
+67,11
@@
:type '(repeat regexp))
(defun visible-mark-initialize-overlays ()
: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))))
(let (overlays)
(dotimes (i visible-mark-max)
(let ((overlay (make-overlay (point-min) (point-min))))