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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/agitate 5943dc9761 3/4: Use vc-git--call in agitate-vc-


From: ELPA Syncer
Subject: [elpa] externals/agitate 5943dc9761 3/4: Use vc-git--call in agitate-vc-git-show-tag
Date: Tue, 4 Oct 2022 20:57:16 -0400 (EDT)

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

    Use vc-git--call in agitate-vc-git-show-tag
---
 agitate.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/agitate.el b/agitate.el
index 401b55b463..e44eae457f 100644
--- a/agitate.el
+++ b/agitate.el
@@ -456,9 +456,8 @@ option `agitate-log-limit'."
 When called interactively, prompt for TAG using minibuffer
 completion."
   (interactive (list (agitate--vc-git-tag-prompt)))
-  (let* ((buf "*agitate-vc-git-show*")
-         (args (list "show" tag)))
-    (apply 'vc-git-command (get-buffer-create buf) nil nil args)
+  (let* ((buf "*agitate-vc-git-show*"))
+    (vc-git--call (get-buffer-create buf) "show" tag)
     ;; TODO 2022-09-27: What else do we need to set up in such a
     ;; buffer?
     (with-current-buffer (pop-to-buffer buf)
@@ -467,7 +466,7 @@ completion."
                   (lambda (_ignore-auto _noconfirm)
                     (let ((inhibit-read-only t))
                       (erase-buffer)
-                      (apply 'vc-git-command (get-buffer buf) nil nil args)
+                      (vc-git--call buf "show" tag)
                       (goto-char (point-min)))))
       (goto-char (point-min)))))
 



reply via email to

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