From 84bec74de2d5a0303c984add16072fbc2e21da76 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 16 Feb 2019 00:00:51 -0500
Subject: km/magit-branch-backup-current: Use "--copy"

... so that the reflog is copied as well.
---
 lisp/km-magit.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 14083bd..0ea2b02 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -183,7 +183,7 @@ argument CHOOSE-SUFFIX, prompt for a suffix to use instead of
   (let ((current (or (magit-get-current-branch)
                      (user-error "No current branch"))))
     (magit-run-git
-     "branch"
+     "branch" "--copy"
      (let* ((suffix (if choose-suffix
                         (magit-read-string-ns "Backup suffix")
                       "v"))
-- 
cgit v1.2.3