Function: bookmark--remove-fringe-mark

bookmark--remove-fringe-mark is a byte-compiled function defined in bookmark.el.gz.

Signature

(bookmark--remove-fringe-mark BM)

Documentation

Remove a bookmark's colorized overlay.

BM is a bookmark as returned from function bookmark-get-bookmark. See user option bookmark-set-fringe.

Source Code

;; Defined in /usr/src/emacs/lisp/bookmark.el.gz
(defun bookmark--remove-fringe-mark (bm)
  "Remove a bookmark's colorized overlay.
BM is a bookmark as returned from function `bookmark-get-bookmark'.
See user option `bookmark-set-fringe'."
  (let ((filename (cdr (assq 'filename bm)))
        (pos (cdr (assq 'position bm)))
        overlays found temp)
    (when (and pos filename)
      (setq filename (expand-file-name filename))
      (dolist (buf (buffer-list))
        (with-current-buffer buf
          (when (equal filename buffer-file-name)
            (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))))))))))