Re: Test release of pcl-cvs-1.46-pkg.tar.gz

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))) (if efsroot (let ((cvs-method (completing-read "CVS method: " '(("gserver") ("kserver") ("pserver")))) (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 not D. Could this be an XEmacs bug? -- Paul Krause 781.672.8220 fax 781.466.9821 iBelong Inc, 950 Winter St, Waltham MA 02125