magit: Don't insert related refs by default

2 files changed, 9 insertions, 0 deletions

diff --git a/init.el b/init.el
index c89ea79..a6435f2 100644
--- a/init.el
+++ b/init.el
@@ -802,6 +802,7 @@
         magit-delete-by-moving-to-trash nil
         magit-diff-auto-show-delay 0.1
         magit-revision-show-gravatars nil
+        magit-revision-insert-related-refs nil
         magit-log-section-arguments nil
         magit-log-show-margin nil)
   (setq magit-uniquify-buffer-names nil
@@ -939,6 +940,9 @@
   (define-key magit-refs-mode-map (kbd "C-c C-f")
     #'km/magit-refs-filter-recent)
 
+  (define-key magit-revision-mode-map (kbd "C-c C-r")
+    #'km/magit-revision-insert-related-refs)
+
   (bind-keys :map km/magit-map
              ("c" . km/magit-find-commit-file)
              ("g" . km/git-map)
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 91a6e6c..199d858 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -544,6 +544,11 @@ show tags by default."
     (add-hook 'magit-refs-sections-hook 'magit-insert-tags t t))
   (magit-refresh-buffer))
 
+(defun km/magit-revision-insert-related-refs ()
+  (interactive)
+  (let ((magit-revision-insert-related-refs t))
+    (magit-refresh)))
+
 (defun km/magit-log-flip-revs ()
   "Swap revisions in log range."
   (interactive)