Fix removal of fringe marks of deleted bookmarks
* lisp/bookmark.el (bookmark--remove-fringe-mark): The fringe overlay is at BOL, not at POS. (Bug#51233)
This commit is contained in:
parent
b418aad85a
commit
e852822f3d
1 changed files with 4 additions and 1 deletions
|
@ -479,7 +479,10 @@ See user option `bookmark-set-fringe'."
|
|||
(dolist (buf (buffer-list))
|
||||
(with-current-buffer buf
|
||||
(when (equal filename buffer-file-name)
|
||||
(setq overlays (overlays-in pos (1+ pos)))
|
||||
(setq overlays
|
||||
(save-excursion
|
||||
(goto-char pos)
|
||||
(overlays-in (point-at-bol) (1+ (point-at-bol)))))
|
||||
(while (and (not found) (setq temp (pop overlays)))
|
||||
(when (eq 'bookmark (overlay-get temp 'category))
|
||||
(delete-overlay (setq found temp))))))))))
|
||||
|
|
Loading…
Add table
Reference in a new issue