[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3c2753a 2/2: Make bookmark fringe marks evaporate
From: |
Lars Ingebrigtsen |
Subject: |
master 3c2753a 2/2: Make bookmark fringe marks evaporate |
Date: |
Wed, 15 Sep 2021 03:58:50 -0400 (EDT) |
branch: master
commit 3c2753a3b8e69e32524d1e1342be6ffc41aa1ec3
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make bookmark fringe marks evaporate
* lisp/bookmark.el (bookmark--set-fringe-mark): Make the bookmark
evaporate when a buffer is erased (like, for instance, when doing
`revert-buffer' in a vc buffer).
---
lisp/bookmark.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 719fc98..0a07948 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -459,8 +459,9 @@ In other words, return all information but the name."
(defun bookmark--set-fringe-mark ()
"Apply a colorized overlay to the bookmarked location.
See user option `bookmark-set-fringe-mark'."
- (let ((bm (make-overlay (point-at-bol) (point-at-bol))))
+ (let ((bm (make-overlay (point-at-bol) (1+ (point-at-bol)))))
(overlay-put bm 'category 'bookmark)
+ (overlay-put bm 'evaporate t)
(overlay-put bm 'before-string
(propertize
"x" 'display