Set 'remote branch' text property in branch view

This only works with git versions that prefix remote branches with
"remotes/" in the output of "git branch -va". git 1.7 and 1.6.3 do,
git 1.5.6.5 does not.
This commit is contained in:
Moritz Bunkus 2010-06-20 11:45:50 +02:00 committed by Phil Jackson
parent 110e9063a3
commit 8bcbcb369e

View file

@ -4084,7 +4084,8 @@ With prefix force the removal even it it hasn't been merged."
)
branch-line)
(let ((res (list (cons 'current (match-string 1 branch-line))
(cons 'branch (match-string 2 branch-line)))))
(cons 'branch (match-string 2 branch-line))
(cons 'remote (string-match-p "^remotes/" (match-string 2 branch-line))))))
(if (match-string 4 branch-line)
(cons (cons 'other-ref (match-string 6 branch-line)) res)
(append