From 8c58d37d56b880334a374cc50f3d0706d91b8cfe Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 31 Dec 2007 20:43:49 +0000 Subject: [PATCH] (vc-cvs-parse-entry): Set the vc-backend property. --- lisp/ChangeLog | 2 ++ lisp/vc-cvs.el | 2 ++ 2 files changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 68d6b40e54b..3d9823536e7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-12-31 Dan Nicolaescu + * 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 c3aff66588b..321f4e52805 100644 --- 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) -- 2.39.2