From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 21 Jun 2024 08:59:09 +0000 (+0200)
Subject: Fix regression with bookmark annotations
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=643a6e6987c197c561f7603e78692eddb4744994;p=emacs.git

Fix regression with bookmark annotations
---

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 05757309bc1..50767fce671 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -996,7 +996,10 @@ still there, in order, if the topmost one is ever deleted."
         (bookmark-store name record t))
        (t
         (error "Unrecognized value for `overwrite-or-push': %S"
-               overwrite-or-push))))))
+               overwrite-or-push)))
+      (when bookmark-fringe-mark (bookmark--set-fringe-mark))))
+  ;; Ask for an annotation buffer for this bookmark
+  (when bookmark-use-annotations (bookmark-edit-annotation name)))
 
 (defun bookmark-default-name ()
   (let ((record (bookmark-make-record)))