Function: semantic-mrub-preflush

semantic-mrub-preflush is a byte-compiled function defined in mru-bookmark.el.gz.

Signature

(semantic-mrub-preflush ARG &rest ARGS)

Implementations

((sbm semantic-bookmark)) in `semantic/mru-bookmark.el'.

Method called on a tag before the current buffer list of tags is flushed. If there is a buffer match, unlink the tag.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/mru-bookmark.el.gz
(cl-defmethod semantic-mrub-preflush ((sbm semantic-bookmark))
  "Method called on a tag before the current buffer list of tags is flushed.
If there is a buffer match, unlink the tag."
  (let ((tag (oref sbm tag))
	(parent (when (slot-boundp sbm 'parent)
		  (oref sbm parent))))
    (let ((b (semantic-tag-in-buffer-p tag)))
      (when (and b (eq b (current-buffer)))
	(semantic--tag-unlink-from-buffer tag)))

    (when parent
      (let ((b (semantic-tag-in-buffer-p parent)))
	(when (and b (eq b (current-buffer)))
	  (semantic--tag-unlink-from-buffer parent))))))