aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2021-11-15 20:20:30 +0200
committerEli Zaretskii2021-11-15 20:20:30 +0200
commite852822f3db469c985bf022651f184d6ff2c518a (patch)
tree78fa44f5a1507808eaa87b2f9ce18d1fee549ca4
parentb418aad85a3d62aa427e7af72c96ca1d644dbc02 (diff)
downloademacs-e852822f3db469c985bf022651f184d6ff2c518a.tar.gz
emacs-e852822f3db469c985bf022651f184d6ff2c518a.zip
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)
-rw-r--r--lisp/bookmark.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index fb90f01456e..623f0acd28a 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -479,7 +479,10 @@ See user option `bookmark-set-fringe'."
479 (dolist (buf (buffer-list)) 479 (dolist (buf (buffer-list))
480 (with-current-buffer buf 480 (with-current-buffer buf
481 (when (equal filename buffer-file-name) 481 (when (equal filename buffer-file-name)
482 (setq overlays (overlays-in pos (1+ pos))) 482 (setq overlays
483 (save-excursion
484 (goto-char pos)
485 (overlays-in (point-at-bol) (1+ (point-at-bol)))))
483 (while (and (not found) (setq temp (pop overlays))) 486 (while (and (not found) (setq temp (pop overlays)))
484 (when (eq 'bookmark (overlay-get temp 'category)) 487 (when (eq 'bookmark (overlay-get temp 'category))
485 (delete-overlay (setq found temp)))))))))) 488 (delete-overlay (setq found temp))))))))))