Function: semantic--tag-unlink-copy-secondary-overlays

semantic--tag-unlink-copy-secondary-overlays is a byte-compiled function defined in decorate.el.gz.

Signature

(semantic--tag-unlink-copy-secondary-overlays TAG)

Documentation

Unlink secondary overlays from TAG which is a copy.

This means we don't destroy the overlays, only remove reference from them in TAG.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/decorate.el.gz
(defun semantic--tag-unlink-copy-secondary-overlays (tag)
  "Unlink secondary overlays from TAG which is a copy.
This means we don't destroy the overlays, only remove reference
from them in TAG."
  (let ((ol (semantic-tag-secondary-overlays tag)))
    (while ol
      ;; Else, remove all  traces of ourself from the tag
      ;; Note to self: Does this prevent multiple types of secondary
      ;; overlays per tag?
      (semantic-tag-remove-hook tag 'link-hook 'semantic--tag-link-secondary-overlays)
      (semantic-tag-remove-hook tag 'unlink-hook 'semantic--tag-unlink-secondary-overlays)
      (semantic-tag-remove-hook tag 'unlink-copy-hook 'semantic--tag-unlink-copy-secondary-overlays)
      ;; Next!
      (setq ol (cdr ol)))
    (semantic--tag-put-property tag 'secondary-overlays nil)
    ))