From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 1 Feb 2025 09:33:34 +0000 (+0200)
Subject: Remove bookmark fringe marks when deleting all bookmarks
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~68
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=fdc6842a44e76db35432305455a05f2125962a62;p=emacs.git

Remove bookmark fringe marks when deleting all bookmarks

* lisp/bookmark.el (bookmark-delete-all): Remove fringe marks for
all the bookmarks.  (Bug#75953)
---

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index cd59293e0a4..153646c1fff 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1584,6 +1584,8 @@ confirmation."
   (when (or no-confirm
             (yes-or-no-p "Permanently delete all bookmarks? "))
     (bookmark-maybe-load-default-file)
+    (dolist (bm bookmark-alist)
+      (bookmark--remove-fringe-mark bm))
     (setq bookmark-alist-modification-count
           (+ bookmark-alist-modification-count (length bookmark-alist)))
     (setq bookmark-alist nil)