branch: externals/agitate
commit 1df9714eb6bf23c04e4ced1ac547c349c7d64694
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@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*"
