gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Directly look for git-svn ref name, don't use magit-list-interesting-refs.

Browse source 
* magit.el (magit-get-svn-ref): Here, by using magit-ref-exists-p.
This commit is contained in:
Marius Vollmer 2009-06-07 22:04:35 +03:00
parent 03329dbfc3
commit c208d194b6
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
magit.el
View file

@ -2102,9 +2102,12 @@ in log buffer."
(not (null (magit-get-svn-ref))))
(defun magit-get-svn-ref ()
(let ((interesting-refs (magit-list-interesting-refs)))
(or (cdr (assoc "git-svn (git-svn)" interesting-refs))
(cdr (assoc "trunk (git-svn)" interesting-refs)))))
(cond ((magit-ref-exists-p "refs/remotes/git-svn")
"refs/remotes/git-svn")
((magit-ref-exists-p "refs/remotes/trunk")
"refs/remotes/trunk")
(t
nil)))
;;; Resetting