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 <dann@ics.uci.edu>
* vc-bzr.el (vc-bzr-working-revision): Fix looking for a revision
in a lightweight checkout.
2010-01-05 Kenichi Handa <handa@m17n.org>
* 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)
(with-temp-buffer
(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
l-c-parent-dir))
(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)))))
t)))
(with-temp-buffer
(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