Function: semantic-assert-valid-token

semantic-assert-valid-token is a byte-compiled function defined in util.el.gz.

Signature

(semantic-assert-valid-token TOK)

Documentation

Assert that TOK is a valid token.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/util.el.gz
(defun semantic-assert-valid-token (tok)
  "Assert that TOK is a valid token."
  (if (semantic-tag-p tok)
      (if (semantic-tag-with-position-p tok)
	  (let ((o  (semantic-tag-overlay tok)))
	    (if (and (overlayp o)
		     (not (overlay-buffer o)))
		(let ((debug-on-error t))
		  (error "Tag %s is invalid!" (semantic-tag-name tok)))
	      ;; else, tag is OK.
	      ))
	;; Positionless tags are also ok.
	)
    (let ((debug-on-error t))
      (error "Not a semantic tag: %S" tok))))