[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.
Stefan
- Re: Checkout a branch in cvs-tree,
Stefan Monnier <=