Commit da4d4066 authored by Chong Yidong's avatar Chong Yidong

(vc-bzr-dir-extra-headers): New function.

(vc-bzr-dir-printer): Rename from vc-bzr-status-printer.
parent 74c76008
......@@ -585,10 +585,10 @@ stream. Standard error output is discarded."
(:conc-name vc-bzr-extra-fileinfo->))
extra-name) ;; original name for rename targets, new name for
(defun vc-bzr-status-printer (info)
(defun vc-bzr-dir-printer (info)
"Pretty-printer for the vc-dir-fileinfo structure."
(let ((extra (vc-dir-fileinfo->extra info)))
(vc-default-status-printer 'Bzr info)
(vc-default-dir-printer 'Bzr info)
(when extra
(insert (propertize
(format " (renamed from %s)"
......@@ -664,6 +664,19 @@ stream. Standard error output is discarded."
(apply 'vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S" files)
(vc-exec-after
`(vc-bzr-after-dir-status (quote ,update-function))))
(defun vc-bzr-dir-extra-headers (dir)
(let ((str (with-temp-buffer
(vc-bzr-command "info" t 0 dir)
(buffer-string))))
(concat
(propertize "Parent branch: " 'face 'font-lock-type-face)
(propertize
(if (string-match "parent branch: \\(.+\\)$" str)
(match-string 1 str)
"None")
'face 'font-lock-variable-name-face))))
;;; Revision completion
(defun vc-bzr-revision-completion-table (files)
......
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