Remove bookmark fringe marks when deleting all bookmarks

* lisp/bookmark.el (bookmark-delete-all): Remove fringe marks for all the bookmarks. (Bug#75953)
2025-02-01 11:33:34 +02:00
parent 3bccd04c5c
commit fdc6842a44
1 changed files with 2 additions and 0 deletions
--- 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)