Actual branch name in remote string.

This commit is contained in:
Phil Jackson 2010-07-06 00:19:23 +01:00
parent 997ecb4e10
commit bf14e965ba

View file

@ -2507,14 +2507,20 @@ insert a line to tell how to insert more of them"
(defun magit-remote-string (remote remote-branch svn-info)
(cond
((string= "." remote)
(format "branch %s"
(propertize remote-branch 'face 'magit-branch)))
(format "branch %s"
(propertize remote-branch 'face 'magit-branch)))
(remote
(concat remote " " (magit-get "remote" remote "url")))
(concat
(propertize remote-branch 'face 'magit-branch)
" @ "
remote
" ("
(magit-get "remote" remote "url")
")"))
(svn-info
(concat (cdr (assoc 'url svn-info))
" @ "
(cdr (assoc 'revision svn-info))))))
(concat (cdr (assoc 'url svn-info))
" @ "
(cdr (assoc 'revision svn-info))))))
(defun magit-refresh-status ()
(magit-create-buffer-sections