[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 1e3076e2db: Fix bug where bookmark-jump used (point), not (poin
From: |
Eli Zaretskii |
Subject: |
emacs-28 1e3076e2db: Fix bug where bookmark-jump used (point), not (point-at-bol) |
Date: |
Thu, 30 Dec 2021 02:05:52 -0500 (EST) |
branch: emacs-28
commit 1e3076e2dbddaeb8cf678a9bfb30b7d269de1479
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Eli Zaretskii <eliz@gnu.org>
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 623f0acd28..c5e7f2720d 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 1e3076e2db: Fix bug where bookmark-jump used (point), not (point-at-bol),
Eli Zaretskii <=