Function: cc-bytecomp-put

cc-bytecomp-put is a macro defined in cc-bytecomp.el.gz.

Signature

(cc-bytecomp-put SYMBOL PROPNAME VALUE)

Documentation

Set a property on SYMBOL during compilation (and evaluation) of the file.

Don't use outside eval-when-compile.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cc-bytecomp.el.gz
(defmacro cc-bytecomp-put (symbol propname value)
  "Set a property on SYMBOL during compilation (and evaluation) of the file.
Don't use outside `eval-when-compile'."
  (declare (debug t))
  `(eval-when-compile
     (if (not (assoc (cons ,symbol ,propname) cc-bytecomp-original-properties))
	 (progn
	   (cc-bytecomp-debug-msg
	    "cc-bytecomp-put: Saving property %s for %s with value %s"
	    ,propname ,symbol (get ,symbol ,propname))
	   (setq cc-bytecomp-original-properties
		 (cons (cons (cons ,symbol ,propname)
			     (cons ,value (get ,symbol ,propname)))
		       cc-bytecomp-original-properties))))
     (put ,symbol ,propname ,value)
     (cc-bytecomp-debug-msg
      "cc-bytecomp-put: Bound property %s for %s to %s"
      ,propname ,symbol ,value)))