From 1e3076e2dbddaeb8cf678a9bfb30b7d269de1479 Mon Sep 17 00:00:00 2001 From: Campbell Barton Date: Thu, 30 Dec 2021 17:20:45 +1100 Subject: [PATCH] Fix bug where bookmark-jump used (point), not (point-at-bol) This matches changes from e852822f3db469c985bf022651f184d6ff2c518a, regression in 7fe88446c30279285e3171091189b3d1af697c05. * lisp/bookmark.el (bookmark--jump-via): Look at overlays at BOL. Otherwise the fringe bookmark indication is not deleted with the bookmark. Copyright-paperwork-exempt: yes --- lisp/bookmark.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 623f0acd28a..c5e7f2720d1 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -1164,7 +1164,7 @@ and then show any annotations for this bookmark." ;; FIXME: we used to only run bookmark-after-jump-hook in ;; `bookmark-jump' itself, but in none of the other commands. (when bookmark-set-fringe-mark - (let ((overlays (overlays-in (point) (point))) + (let ((overlays (overlays-in (point-at-bol) (1+ (point-at-bol)))) temp found) (while (and (not found) (setq temp (pop overlays))) (when (eq 'bookmark (overlay-get temp 'category)) -- 2.39.2