diff options
| author | Eli Zaretskii | 2021-10-16 10:10:06 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2021-10-16 10:10:06 +0300 |
| commit | e842d7f29ac6a42e44065a94623b36b2dcbb81eb (patch) | |
| tree | 40b19195b7ced4a2315bb190544e61c906b46a9c | |
| parent | b5a0eda978738467eed16b9a530d175c33418362 (diff) | |
| download | emacs-e842d7f29ac6a42e44065a94623b36b2dcbb81eb.tar.gz emacs-e842d7f29ac6a42e44065a94623b36b2dcbb81eb.zip | |
Fix removal of fringe indication of bookmarks
* lisp/bookmark.el (bookmark--remove-fringe-mark): Fix off-by-one
error in looking for bookmark-related overlays. (Bug#51233)
| -rw-r--r-- | lisp/bookmark.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index d64966df5af..fb90f01456e 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -479,7 +479,7 @@ 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 pos)) | 482 | (setq overlays (overlays-in pos (1+ pos))) |
| 483 | (while (and (not found) (setq temp (pop overlays))) | 483 | (while (and (not found) (setq temp (pop overlays))) |
| 484 | (when (eq 'bookmark (overlay-get temp 'category)) | 484 | (when (eq 'bookmark (overlay-get temp 'category)) |
| 485 | (delete-overlay (setq found temp)))))))))) | 485 | (delete-overlay (setq found temp)))))))))) |