;
; This is called from ./change-cvs-root.csh, q.v.  All that happens here is to 
; replace-string of the old CVS root path to the new root path.  The calling
; script applies this to all CVS/Root files it finds.

(setq kept-old-versions 50)
(setq kept-new-versions 50)

;(replace-string "vogon.csc.calpoly.edu:/home/gfisher/projects/CVS"
;	         "/home/gfisher/projects/CVS")

(replace-string "/home/gfisher/projects/CVS"
	         "vogon.csc.calpoly.edu:/home/gfisher/projects/CVS")

;(replace-string "vogon.csc.calpoly.edu:/home/gfisher/projects/CVS"
;		"falcon.csc.calpoly.edu:/home/gfisher/projects/CVS")

;(replace-string "falcon.csc.calpoly.edu:/home/gfisher/projects/CVS"
;		"vogon.csc.calpoly.edu:/home/gfisher/projects/CVS")

;(replace-string "waldorf.csc.calpoly.edu:/users/faculty/gfisher/projects/CVS"
;		"falcon.csc.calpoly.edu:/home/gfisher/projects/CVS")

;(replace-string "/users/gfisher/projects/CVS"
;	         "waldorf:/users/faculty/gfisher/projects/CVS")

;(replace-string "/users/faculty/gfisher/projects/CVS"
;                "/users/gfisher/projects/CVS")

(save-buffer)