Function: semantic-lex-type-put

semantic-lex-type-put is a byte-compiled function defined in lex.el.gz.

Signature

(semantic-lex-type-put TYPE PROPERTY VALUE &optional ADD)

Documentation

For symbol with TYPE name, set its PROPERTY to VALUE.

If optional argument ADD is non-nil, create a new symbol with TYPE name if it does not already exist. Otherwise signal an error.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/lex.el.gz
(defsubst semantic-lex-type-put (type property value &optional add)
  "For symbol with TYPE name, set its PROPERTY to VALUE.
If optional argument ADD is non-nil, create a new symbol with TYPE
name if it does not already exist.  Otherwise signal an error."
  (let ((sym (semantic-lex-type-symbol type)))
    (unless sym
      (or add (semantic-lex-type-invalid type))
      (semantic-lex-type-set type nil)
      (setq sym (semantic-lex-type-symbol type)))
    (put sym property value)))