changeset 87507:fd67c20d4a7e

(vc-cvs-parse-entry): Set the vc-backend property.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 31 Dec 2007 20:43:49 +0000
parents de46129c1767
children ea48a2b3bffe
files lisp/ChangeLog lisp/vc-cvs.el
diffstat 2 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Dec 31 19:14:24 2007 +0000
+++ b/lisp/ChangeLog	Mon Dec 31 20:43:49 2007 +0000
@@ -1,5 +1,7 @@
 2007-12-31  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* vc-cvs.el (vc-cvs-parse-entry): Set the vc-backend property.
+
 	* vc.el: State that dir-state is required to set the vc-state and
 	vc-backend properties.
 
--- a/lisp/vc-cvs.el	Mon Dec 31 19:14:24 2007 +0000
+++ b/lisp/vc-cvs.el	Mon Dec 31 20:43:49 2007 +0000
@@ -947,6 +947,7 @@
   (cond
    ;; entry for a "locally added" file (not yet committed)
    ((looking-at "/[^/]+/0/")
+    (vc-file-setprop file 'vc-backend 'CVS)
     (vc-file-setprop file 'vc-checkout-time 0)
     (vc-file-setprop file 'vc-working-revision "0")
     (if set-state (vc-file-setprop file 'vc-state 'edited)))
@@ -962,6 +963,7 @@
 	     ;; sticky tag
 	     "\\(.\\|\\)" ;Sticky tag type (date or tag name, could be empty)
 	     "\\(.*\\)"))		;Sticky tag
+    (vc-file-setprop file 'vc-backend 'CVS)
     (vc-file-setprop file 'vc-working-revision (match-string 1))
     (vc-file-setprop file 'vc-cvs-sticky-tag
 		     (vc-cvs-parse-sticky-tag (match-string 4)