[elpa] externals/agitate 1df9714eb6 49/67: Accept optional long agitate--vc-git-commit-prompt

[ELPA Syncer]

branch: externals/agitate
commit 1df9714eb6bf23c04e4ced1ac547c349c7d64694
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Accept optional long agitate--vc-git-commit-prompt
---
 agitate.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/agitate.el b/agitate.el
index d0cd4edc15..0a6d48e0be 100644
--- a/agitate.el
+++ b/agitate.el
@@ -236,18 +236,19 @@ to the text at point."
   (when (string-match "\\b\\([0-9a-z]+\\) " string)
     (match-string 1 string)))
 
-(defun agitate--vc-git-commit-prompt (&optional file)
+(defun agitate--vc-git-commit-prompt (&optional file long)
   "Prompt for Git commit and return it as a string.
 With optional FILE, limit the commits to those pertinent to it."
-  (let ((default-directory (vc-root-dir)))
+  (let ((default-directory (vc-root-dir))
+        (format (if long "--pretty=oneline" "--oneline")))
     (if file
         (completing-read
          (format "Select revision of `%s': " file)
-         (process-lines vc-git-program "log" "--oneline" file)
+         (process-lines vc-git-program "log" format file)
          nil t)
       (completing-read
        "Select revision: "
-       (process-lines vc-git-program "log" "--oneline" "--")
+       (process-lines vc-git-program "log" format "--")
        nil t))))
 
 (defvar agitate-vc-git-show-buffer "*agitate-vc-git-show*"