From 3c2753a3b8e69e32524d1e1342be6ffc41aa1ec3 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 15 Sep 2021 09:58:41 +0200 Subject: [PATCH] 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 719fc98f768..0a079482ca9 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 -- 2.39.5