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

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

[elpa] externals/agitate 1062b94ccb: Remove agitate-log-edit-show-root-l


From: ELPA Syncer
Subject: [elpa] externals/agitate 1062b94ccb: Remove agitate-log-edit-show-root-log
Date: Thu, 6 Oct 2022 22:57:15 -0400 (EDT)

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

    Remove agitate-log-edit-show-root-log
    
    It is not useful.  We can just leverage the 'vc-print-root-log' and
    'let' bind whatever we need.
---
 agitate.el | 20 ++------------------
 1 file changed, 2 insertions(+), 18 deletions(-)

diff --git a/agitate.el b/agitate.el
index cd5fc2b412..6eea84c380 100644
--- a/agitate.el
+++ b/agitate.el
@@ -273,23 +273,6 @@ Restore the last window configuration when finalising 
log-view."
 ;; helpful or will it cause confusion?  If it is useful, the idea is
 ;; to add a `defcustom' for it.
 
-;;;###autoload
-(defun agitate-log-edit-show-root-log (&optional current-files)
-  "PROTOTYPE Like `vc-print-root-log' for `log-edit' buffers.
-When optional CURRENT-FILES is non-nil, limit the revision log to
-the `log-edit-files'.
-
-The number of revisions in the log is controlled by the user
-option `agitate-log-limit'."
-  (when-let* ((files (log-edit-files))
-              ;; FIXME 2022-10-01: What happens with backends that do
-              ;; not support short logs?  Do we need to handle
-              ;; anything here?
-              (vc-log-short-style '(file)))
-    (vc-print-log-internal
-     (vc-responsible-backend default-directory)
-     (when current-files files) nil nil agitate-log-limit)))
-
 (defun agitate--log-edit-informative-setup ()
   "Set up informative `log-edit' window configuration."
   (setq agitate--previous-window-configuration (current-window-configuration))
@@ -303,7 +286,8 @@ option `agitate-log-limit'."
     (log-edit-hide-buf log-edit-files-buf))
   (when agitate-log-edit-informative-show-root-log
     (save-selected-window
-      (agitate-log-edit-show-root-log))))
+      (let ((vc-log-show-limit agitate-log-limit))
+        (vc-print-root-log)))))
 
 (defun agitate--log-edit-informative-restore ()
   "Restore `agitate--previous-window-configuration'."



reply via email to

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