Function: cvs-add-secondary-branch-prefix

cvs-add-secondary-branch-prefix is a byte-compiled function defined in pcvs.el.gz.

Signature

(cvs-add-secondary-branch-prefix FLAGS &optional ARG)

Documentation

Add branch selection argument if the secondary branch prefix was set.

The argument is added (or not) to the list of FLAGS and is constructed by appending the branch to ARG which defaults to "-r". Since the cvs-secondary-branch-prefix is only active if the primary prefix is active, it is important to read the secondary prefix before the primary since reading the primary can deactivate it.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs.el.gz
(defun cvs-add-secondary-branch-prefix (flags &optional arg)
  "Add branch selection argument if the secondary branch prefix was set.
The argument is added (or not) to the list of FLAGS and is constructed
by appending the branch to ARG which defaults to \"-r\".
Since the `cvs-secondary-branch-prefix' is only active if the primary
prefix is active, it is important to read the secondary prefix before
the primary since reading the primary can deactivate it."
  (let ((branch (and (cvs-prefix-get 'cvs-branch-prefix 'read-only)
		     (cvs-prefix-get 'cvs-secondary-branch-prefix))))
    (if branch (cons (concat (or arg "-r") branch) flags) flags)))