From 1c4cce305ebd05af42f9b85baf337896af10d538 Mon Sep 17 00:00:00 2001
From: Protesilaos <info@protesilaos.com>
Date: Sat, 15 Aug 2026 21:41:13 +0300
Subject: [PATCH] emacs: make minor refinements to display-buffer-alist

---
 emacs/.emacs.d/prot-emacs-modules/prot-emacs-window.el | 7 ++++---
 emacs/.emacs.d/prot-emacs.org                          | 7 ++++---
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-window.el b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-window.el
index ee7fc7e8..d6f96451 100644
--- a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-window.el
+++ b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-window.el
@@ -96,7 +96,7 @@
            (display-buffer-reuse-mode-window display-buffer-at-bottom)
            (inhibit-switch-frame . t))
           ;; below current window
-          ("*prot-elisp-macroexpand*"
+          ("\\*prot-elisp-macroexpand\\*"
            (display-buffer-below-selected)
            (window-height . 0.3)
            (dedicated . t)
@@ -154,9 +154,10 @@
            (display-buffer-reuse-mode-window prot-window-display-new display-buffer-pop-up-window)
            (inhibit-switch-frame . t))
           ;; other `tab-bar-mode' tab
-          ((derived-mode . magit-status-mode)
+          ((or . ((derived-mode . magit-status-mode)
+                  (derived-mode . vc-dir-mode)))
            (display-buffer-reuse-mode-window display-buffer-in-tab)
-           (mode . magit-status-mode)
+           (mode . (magit-status-mode vc-dir-mode))
            (tab-name . (lambda (buffer _alist) (buffer-name buffer)))
            (reusable-frames . :just-the-selected-frame)
            (inhibit-switch-frame . t)))))
diff --git a/emacs/.emacs.d/prot-emacs.org b/emacs/.emacs.d/prot-emacs.org
index 52660ffd..9b35ea44 100644
--- a/emacs/.emacs.d/prot-emacs.org
+++ b/emacs/.emacs.d/prot-emacs.org
@@ -6767,7 +6767,7 @@ to a certain height.
            (display-buffer-reuse-mode-window display-buffer-at-bottom)
            (inhibit-switch-frame . t))
           ;; below current window
-          ("*prot-elisp-macroexpand*"
+          ("\\*prot-elisp-macroexpand\\*"
            (display-buffer-below-selected)
            (window-height . 0.3)
            (dedicated . t)
@@ -6825,9 +6825,10 @@ to a certain height.
            (display-buffer-reuse-mode-window prot-window-display-new display-buffer-pop-up-window)
            (inhibit-switch-frame . t))
           ;; other `tab-bar-mode' tab
-          ((derived-mode . magit-status-mode)
+          ((or . ((derived-mode . magit-status-mode)
+                  (derived-mode . vc-dir-mode)))
            (display-buffer-reuse-mode-window display-buffer-in-tab)
-           (mode . magit-status-mode)
+           (mode . (magit-status-mode vc-dir-mode))
            (tab-name . (lambda (buffer _alist) (buffer-name buffer)))
            (reusable-frames . :just-the-selected-frame)
            (inhibit-switch-frame . t)))))