emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]