Function: cvs-prefix-define

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

Signature

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

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-util.el.gz
(defmacro cvs-prefix-define (sym docstring desc defaults
				 &optional qtypedesc hist-sym)
  (let ((cps (cvs-prefix-sym sym)))
    `(progn
       (defvar ,sym nil ,(concat (or docstring "") "
See `cvs-prefix-set' for further description of the behavior."))
       (defvar ,cps
	 (let ((defaults ,defaults))
	   ;; sanity insurance
	   (unless (>= (length defaults) cvs-prefix-number)
	     (setq defaults (append defaults
				    (make-list (1- cvs-prefix-number)
					       (nth 0 defaults)))))
	   (-cvs-flags-make ,desc defaults ,qtypedesc ,hist-sym))))))