[elpa] externals/agitate 4487746395 1/2: Bind display-buffer for log view in "informative" log-edit

[ELPA Syncer]

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

    Bind display-buffer for log view in "informative" log-edit
    
    This will show the log-view below the log-edit buffer when the
    'agitate-log-edit-informative-mode' is enabled.
---
 agitate.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/agitate.el b/agitate.el
index cee0d9e444..48d002c418 100644
--- a/agitate.el
+++ b/agitate.el
@@ -279,12 +279,13 @@ Restore the last window configuration when finalising 
log-view."
   (if agitate-log-edit-informative-show-files
       (log-edit-show-files)
     (log-edit-hide-buf log-edit-files-buf))
-  ;; FIXME 2022-10-13: `let' bind a display-buffer-alist entry to show
-  ;; this below the current window.  Otherwise this does not work as
-  ;; intended, since it replaces the log-edit buffer.
   (when agitate-log-edit-informative-show-root-log
     (save-selected-window
-      (let ((vc-log-show-limit agitate-log-limit))
+      (let ((vc-log-show-limit agitate-log-limit)
+            (display-buffer-alist
+             (cons (list (cons 'derived-mode 'log-view-mode)
+                         (list 'display-buffer-below-selected))
+                   display-buffer-alist)))
         (vc-print-root-log)))))
 
 (defun agitate--log-edit-informative-restore ()