From 9e5e17027635bd66753d618829e9b8188583e021 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 31 Jul 2015 00:04:45 -0400
Subject: magit-copy-hook: Add function to copy region commits

---
 lisp/init-git.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lisp')

diff --git a/lisp/init-git.el b/lisp/init-git.el
index 9d2967b..3c8ce18 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -330,6 +330,7 @@ argument."
 (defvar km/magit-copy-hook
   '(km/magit-copy-commit-citation
     km/magit-copy-commit-message
+    km/magit-copy-region-commits
     km/magit-copy-region-hunk
     km/magit-copy-hunk)
   "Functions tried by `km/magit-copy-as-kill'.
@@ -359,6 +360,13 @@ Format the reference as '<hash>, (\"<subject>\", <date>)'."
                       (+ 4 (point)) (point-at-eol)))))
       (kill-new (message "%s (\"%s\", %s)" hash subject date)))))
 
+(defun km/magit-copy-region-commits (&optional arg)
+  (--when-let (magit-region-values 'commit)
+    (deactivate-mark)
+    (kill-new
+     (mapconcat #'identity it
+                (if arg (read-string "Separator: ") ", ")))))
+
 (defun km/magit-copy-commit-message (&optional arg)
   (magit-section-when message
     (kill-new (replace-regexp-in-string
-- 
cgit v1.2.3