diff lisp/vc-bzr.el @ 84350:13fc3289f099

(vc-bzr-admin-lastrev): New defconst. (vc-bzr-workfile-version): Use it.

--- a/lisp/vc-bzr.el	Thu Sep 06 18:41:46 2007 +0000
+++ b/lisp/vc-bzr.el	Thu Sep 06 19:46:17 2007 +0000
@@ -105,6 +105,8 @@
   (concat vc-bzr-admin-dirname "/branch/format"))
 (defconst vc-bzr-admin-revhistory
   (concat vc-bzr-admin-dirname "/branch/revision-history"))
+(defconst vc-bzr-admin-lastrev
+  (concat vc-bzr-admin-dirname "/branch/last-revision"))
 
 ;;;###autoload (defun vc-bzr-registered (file)
 ;;;###autoload   (if (vc-find-root file vc-bzr-admin-checkout-format-file)
@@ -241,7 +243,7 @@
       ((rootdir (vc-bzr-root file))
        (branch-format-file (concat rootdir "/" vc-bzr-admin-branch-format-file))
        (revhistory-file (concat rootdir "/" vc-bzr-admin-revhistory))
-       (lastrev-file (concat rootdir "/" "branch/last-revision")))
+       (lastrev-file (concat rootdir "/" vc-bzr-admin-lastrev)))
     ;; Count lines in .bzr/branch/revision-history to avoid forking a
     ;; bzr process.  This looks at internal files.  May break if they
     ;; change their format.