[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/agitate 3443b4e99d 2/4: Use vc-git--call in agitate-vc-
From: |
ELPA Syncer |
Subject: |
[elpa] externals/agitate 3443b4e99d 2/4: Use vc-git--call in agitate-vc-git-show |
Date: |
Tue, 4 Oct 2022 20:57:16 -0400 (EDT) |
branch: externals/agitate
commit 3443b4e99d9333fe0d0bc43fd484585082b01f73
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Use vc-git--call in agitate-vc-git-show
---
agitate.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/agitate.el b/agitate.el
index 1bde352aa8..401b55b463 100644
--- a/agitate.el
+++ b/agitate.el
@@ -425,9 +425,8 @@ option `agitate-log-limit'."
(revision (agitate--vc-git-get-hash-from-string
(agitate--vc-git-commit-prompt
f)))
- (buf "*agitate-vc-git-show*")
- (args (list "show" "--patch-with-stat" revision)))
- (apply 'vc-git-command (get-buffer-create buf) nil f args)
+ (buf "*agitate-vc-git-show*"))
+ (vc-git--call (get-buffer-create buf) "show" "--patch-with-stat"
revision)
;; TODO 2022-09-27: What else do we need to set up in such a
;; buffer?
(with-current-buffer (pop-to-buffer buf)
@@ -436,7 +435,7 @@ option `agitate-log-limit'."
(lambda (_ignore-auto _noconfirm)
(let ((inhibit-read-only t))
(erase-buffer)
- (apply 'vc-git-command (get-buffer buf) nil f args)
+ (vc-git--call buf "show" "--patch-with-stat" revision)
(goto-char (point-min)))))
(goto-char (point-min))))))