Fix `magit--branch-name-at-point'.

This commit is contained in:
Phil Jackson 2010-04-01 01:23:36 +01:00
parent db44227cb0
commit e7a3b608e6

View file

@ -3575,10 +3575,7 @@ Prefix arg means justify as well."
(defun magit--branch-name-at-point ()
"Get the branch name in the line at point."
(let ((branch (magit--branch-name-from-line (thing-at-point 'line))))
(if (or (= (point) (point-max))
(not branch))
(error "No branch found in current line"))
branch))
(or branch (error "No branch at point"))))
(defun magit-branches-window-checkout ()
"Check out the branch in the line at point."