Function: cvs-add-branch-prefix

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

Signature

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

Documentation

Add branch selection argument if the 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".

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs.el.gz
(defun cvs-add-branch-prefix (flags &optional arg)
  "Add branch selection argument if the 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\"."
  (let ((branch (cvs-prefix-get 'cvs-branch-prefix)))
    ;; deactivate the secondary prefix, even if not used.
    (cvs-prefix-get 'cvs-secondary-branch-prefix)
    (if branch (cons (concat (or arg "-r") branch) flags) flags)))