Function: semantic-tag-delete-secondary-overlay

semantic-tag-delete-secondary-overlay is a byte-compiled function defined in decorate.el.gz.

Signature

(semantic-tag-delete-secondary-overlay TAG OVERLAY-OR-PROPERTY)

Documentation

Delete from TAG the secondary overlay OVERLAY-OR-PROPERTY.

If OVERLAY-OR-PROPERTY is an overlay, delete that overlay. If OVERLAY-OR-PROPERTY is a symbol, find the overlay with that property.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/decorate.el.gz
(defun semantic-tag-delete-secondary-overlay (tag overlay-or-property)
  "Delete from TAG the secondary overlay OVERLAY-OR-PROPERTY.
If OVERLAY-OR-PROPERTY is an overlay, delete that overlay.
If OVERLAY-OR-PROPERTY is a symbol, find the overlay with that property."
  (let* ((o overlay-or-property))
    (if (overlayp o)
	(setq o (list o))
      (setq o (semantic-tag-get-secondary-overlay tag overlay-or-property)))
    (while (overlayp (car o))
      ;; We don't really need to worry about the hooks.
      ;; They will clean themselves up eventually ??
      (semantic--tag-put-property
       tag 'secondary-overlays
       (delete (car o) (semantic-tag-secondary-overlays tag)))
      (delete-overlay (car o))
      (setq o (cdr o)))))