From: Campbell Barton <ideasman42@gmail.com>
Date: Thu, 30 Dec 2021 06:20:45 +0000 (+1100)
Subject: Fix bug where bookmark-jump used (point), not (point-at-bol)
X-Git-Tag: emacs-28.0.91~24
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e3076e2db;p=emacs.git

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

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