From 78872e800636b43c4b6285882ef96b53ce298929 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 15 Sep 2015 00:27:31 -0400
Subject: magit-checkout-local-tracking: Add at-point default

---
 lisp/init-git.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lisp/init-git.el')

diff --git a/lisp/init-git.el b/lisp/init-git.el
index 5d94c46..b43ee54 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -139,8 +139,11 @@ without requiring confirmation.
   "Create and checkout a local tracking branch for REMOTE-BRANCH.
 \n(git checkout -t REMOTE-BRANCH\)"
   (interactive
-   (list (magit-completing-read "Remote branch"
-                                (magit-list-remote-branch-names))))
+   (list (let ((branches (magit-list-remote-branch-names)))
+           (magit-completing-read
+            "Remote branch" branches nil t nil nil
+            (car (member (magit-branch-or-commit-at-point)
+                         branches))))))
   (magit-run-git "checkout" "-t" remote-branch))
 
 (defun km/magit-delete-previous-branch (&optional force)
-- 
cgit v1.2.3