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>
* 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)))))