(vc-cvs-parse-entry): Set the vc-backend property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68d6b40e54b2b5462f29668bc46e8d97f8e1ea4e..3d9823536e752c4a5540307a935941fdba97d807 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index c3aff66588beb6449bcb6c8e30a98477bb92c660..321f4e52805282c961f9aeca47e59db18e11eb0a 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -947,6 +947,7 @@ is non-nil."
   (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 @@ is non-nil."
             ;; 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)