Commit 12451866 authored by Romain Francoise's avatar Romain Francoise
Browse files

(vc-bzr-admin-lastrev): New defconst.

(vc-bzr-workfile-version): Use it.
parent d175b0ae
2007-09-06 Romain Francoise <romain@orebokech.com>
* vc-bzr.el (vc-bzr-admin-lastrev): New defconst.
(vc-bzr-workfile-version): Use it.
2007-09-06 Sean O'Rourke <sorourke@cs.ucsd.edu>
* complete.el (PC-do-completion): Don't try to treat
empty string as an abbreviation.
empty string as an abbreviation.
2007-09-06 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se>
......
......@@ -105,6 +105,8 @@ Invoke the bzr command adding `BZR_PROGRESS_BAR=none' to the environment."
(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 @@ If any error occurred in running `bzr status', then return nil."
((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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment