User: scop Date: 06/04/22 20:29:00 Modified: packages/unsupported/scop/vc ChangeLog vc-cvs.el Log: Fix:local: CVS root parsing. Revision Changes Path 1.46 +2 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.45 retrieving revision 1.46 diff -u -p -r1.45 -r1.46 --- ChangeLog 2006/04/22 18:27:48 1.45 +++ ChangeLog 2006/04/22 18:28:59 1.46 ＠＠ -4,6 +4,8 ＠＠ emulate GNU Emacs' 2-arg one. (vc-annotate-warp-version): Ditto. + * vc-cvs.el (vc-cvs-parse-root): Fix :local: root parsing. + 2006-04-21 Ville Skyttä <scop(a)xemacs.org&gt; * Makefile (VERSION): 0.02. 1.15 +2 -1 XEmacs/packages/unsupported/scop/vc/vc-cvs.el Index: vc-cvs.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc-cvs.el,v retrieving revision 1.14 retrieving revision 1.15 diff -u -p -r1.14 -r1.15 --- vc-cvs.el 2006/02/10 23:25:42 1.14 +++ vc-cvs.el 2006/04/22 18:28:59 1.15 ＠＠ -807,7 +807,8 ＠＠ For an empty string, nil is returned (in ;; Fix windows style CVS root `:local:C:\\project\\cvs\\some\\dir' (and host (equal method "local") - (setq root (concat host ":" root) host)) + ;; XEmacs: need 2nd argument to setq (host) + (setq root (concat host ":" root) host nil)) ;; Normalize CVS root record (list method user host root)))))