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