I've uploaded pcl-cvs-1.46-pkg.tar.gz to the usual place.
This is an update to version 2.9.9. Please test this package before I
release it to the public.
Thanks to Mike Sperber for checking this in,
SuSE Labs aj(a)suse.de
Show replies by date
Looks great so far. One nuisance is that cvs-set-cvsroot doesn't let you set cvsroot
to a remote root. The code below fixes that. If xemacs-beta thinks this is a
reasonable fix, I will submit a patch.
Where should I send the patch?
(defun cvs-change-cvsroot (newroot)
"Change the cvsroot."
(interactive "FNew repository: ") ;D doesn't work with efs
(if (or (file-directory-p (expand-file-name "CVSROOT" newroot))
(y-or-n-p (concat "Warning: no CVSROOT found inside repository."
" Change cvs-cvsroot anyhow?")))
(let ((efsroot (efs-ftp-path newroot)))
(let ((cvs-method (completing-read "CVS method: "
(host (car efsroot))
(user (cadr efsroot))
(path (caddr efsroot)))
(setq cvs-cvsroot (format ":%s:%s＠%s:%s" cvs-method user host path)))
(setq cvs-cvsroot newroot)))))
Also, I don't understand why efs file-name completion works with interactive F but
Could this be an XEmacs bug?
Paul Krause 781.672.8220 fax 781.466.9821
iBelong Inc, 950 Winter St, Waltham MA 02125