Fix regression with bookmark annotations

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 05757309bc1b4f93e5bfb246855d454ceaf28869..50767fce671fe705a703349ad02030c8a11c074f 100644 (file)
--- 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)))