summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-04-16 22:56:38 -0400
committerKyle Meyer <kyle@kyleam.com>2020-04-16 23:54:14 -0400
commite7620bff05222774e4f46c60b183b4813be3c78f (patch)
tree8328eeca5a92dd9204d9afd0de9b5a7f4715b0a7 /lisp
parent5cd08cec74066f049a2157f2abfca8b230d9f868 (diff)
downloademacs.d-e7620bff05222774e4f46c60b183b4813be3c78f.tar.gz
km/magit-branch-archive: Delay refresh until outside loop
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-magit.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 7ec0214..07e1bbc 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -259,8 +259,9 @@ argument CHOOSE-SUFFIX, prompt for a suffix to use instead of
(if (zerop (magit-call-git "update-ref" new branch-full))
(progn
(magit--rename-reflog-file branch-full new)
- (magit-run-git "branch" "-D" branch-short))
+ (magit-call-git "branch" "-D" branch-short))
(error "update-ref call failed"))))
+ (magit-refresh)
(message (concat "Archived "
(let ((num-branches (length branches)))
(if (= num-branches 1)