Re: Checkout a branch in cvs-tree

[Stefan Monnier]

> The question is how to set the cvs root for `cvs-checkout'
> command. I'm using CVSROOT environment variable.  It may be wrong way.

It's probably easier to let-bind `cvs-cvsroot'.

> +     (env (getenv "CVSROOT")))
> +    (unwind-protect
> +     (progn
> +       (setenv "CVSROOT" (cvs-get-cvsroot))
> +       (cvs-checkout modules dir flags))
> +      (setenv "CVSROOT" env))))

A better way then unwind-protect/getenv/setenv is probably:

   (let ((process-environment
          (cons (concat "CVSROOT=" (cvs-get-cvsroot)) process-environment)))

or else

   (let ((process-environment process-environment))
     (setenv "CVSROOT" (cvs-get-cvsroot))
     ...)

but as said

   (let ((cvs-cvsroot (cvs-get-cvsroot)))
     ...)

should work just as well.


        Stefan