diff options
| author | Eli Zaretskii | 2021-11-15 20:20:30 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2021-11-15 20:20:30 +0200 |
| commit | e852822f3db469c985bf022651f184d6ff2c518a (patch) | |
| tree | 78fa44f5a1507808eaa87b2f9ce18d1fee549ca4 | |
| parent | b418aad85a3d62aa427e7af72c96ca1d644dbc02 (diff) | |
| download | emacs-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.el | 5 |
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)))))))))) |