procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove bookmark fringe marks when deleting all bookmarks

Browse source 
* lisp/bookmark.el (bookmark-delete-all): Remove fringe marks for
all the bookmarks.  (Bug#75953)
This commit is contained in:
Eli Zaretskii 2025-02-01 11:33:34 +02:00
parent 3bccd04c5c
commit fdc6842a44
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/bookmark.el
View file

@ -1584,6 +1584,8 @@ confirmation."
(when (or no-confirm (when (or no-confirm
(yes-or-no-p "Permanently delete all bookmarks? ")) (yes-or-no-p "Permanently delete all bookmarks? "))
(bookmark-maybe-load-default-file) (bookmark-maybe-load-default-file)
(dolist (bm bookmark-alist)
(bookmark--remove-fringe-mark bm))
(setq bookmark-alist-modification-count (setq bookmark-alist-modification-count
(+ bookmark-alist-modification-count (length bookmark-alist))) (+ bookmark-alist-modification-count (length bookmark-alist)))
(setq bookmark-alist nil) (setq bookmark-alist nil)