Function: semantic-grammar-ASSOC

semantic-grammar-ASSOC is a byte-compiled function defined in grammar.el.gz.

Signature

(semantic-grammar-ASSOC &rest ARGS)

Documentation

Return expansion of built-in ASSOC expression.

ARGS are ASSOC's key value list.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
;;;;
;;;; Semantic action expansion
;;;;

(defun semantic-grammar-ASSOC (&rest args)
  "Return expansion of built-in ASSOC expression.
ARGS are ASSOC's key value list."
  (let ((key t))
    `(semantic-tag-make-plist
      ,@(mapcar (lambda (i)
                  (prog1
                      (if key
                          (list 'quote i)
                        i)
                    (setq key (not key))))
                args))))