Function: semantic-tag-p

semantic-tag-p is a byte-compiled function defined in tag.el.gz.

Signature

(semantic-tag-p TAG)

Documentation

Return non-nil if TAG is most likely a semantic tag.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag.el.gz
;;; Tag tests and comparisons.
(defsubst semantic-tag-p (tag)
  "Return non-nil if TAG is most likely a semantic tag."
  (condition-case nil
      (and (consp tag)
	   (stringp (car tag))                ; NAME
	   (symbolp (nth 1 tag)) (nth 1 tag)  ; TAG-CLASS
	   (listp (nth 2 tag))                ; ATTRIBUTES
	   (listp (nth 3 tag))                ; PROPERTIES
	   )
    ;; If an error occurs, then it most certainly is not a tag.
    (error nil)))