[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Checkout a branch in cvs-tree

From: Stefan Monnier
Subject: Re: Checkout a branch in cvs-tree
Date: 20 Aug 2004 16:56:57 -0400
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50

> 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.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]