Function: cvs-flags-define

cvs-flags-define is a macro defined in pcvs-util.el.gz.

Signature

(cvs-flags-define SYM DEFAULTS &optional DESC QTYPEDESC HIST-SYM DOCSTRING)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-util.el.gz
(defmacro cvs-flags-define (sym defaults
				&optional desc qtypedesc hist-sym docstring)
  `(defconst ,sym
     (let ((bound (boundp ',sym)))
       (if (and bound (cvs-flags-p ,sym)) ,sym
	 (let ((defaults ,defaults))
	   (-cvs-flags-make ,desc
			    (if bound (cons ,sym (cdr defaults)) defaults)
			    ,qtypedesc ,hist-sym))))
     ,docstring))