Commit 37860caf authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(vc-bzr-working-revision): Fix looking for a revision

in a lightweight checkout.
parent 7b47345b
2010-01-05 Dan Nicolaescu <>
* vc-bzr.el (vc-bzr-working-revision): Fix looking for a revision
in a lightweight checkout.
2010-01-05 Kenichi Handa <>
* language/indian.el (malayalam-composable-pattern): Fix ZWNJ and
......@@ -356,9 +356,19 @@ If any error occurred in running `bzr status', then return nil."
(if (file-exists-p location-fname)
(insert-file-contents location-fname)
(when (re-search-forward "file://\(.+\)" nil t)
(setq branch-format-file (match-string 1))
(file-exists-p branch-format-file)))
;; If the lightweight checkout points to a
;; location in the local file system, then we can
;; look there for the version information.
(when (re-search-forward "file://\\(.+\\)" nil t)
(let ((l-c-parent-dir (match-string 1)))
(setq branch-format-file
(expand-file-name vc-bzr-admin-branch-format-file
(setq lastrev-file
(expand-file-name vc-bzr-admin-lastrev l-c-parent-dir))
;; FIXME: maybe it's overkill to check if both these files exist.
(and (file-exists-p branch-format-file)
(file-exists-p lastrev-file)))))
(insert-file-contents branch-format-file)
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