emacs-29 8e61d23f71e 1/2: Split windows horizontally in places that use split to create a new window.

[Juri Linkov]

branch: emacs-29
commit 8e61d23f71e75225e1e48a572db76c2845a4201a
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    Split windows horizontally in places that use split to create a new window.
    
    * lisp/tab-bar.el (tab-bar-new-tab-to):
    * lisp/window.el (window-state-put):
    To create a new window, split horizontally instead of vertically.
    Use 'window-safe-min-width' for the SIZE arg of 'split-window'.
    (bug#62592)
---
 lisp/tab-bar.el | 3 ++-
 lisp/window.el  | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index ab428b81631..73f2ff77c50 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -1568,7 +1568,8 @@ After the tab is created, the hooks in
                 (window-state-put (window-state-get)))
             ;; Create a new window to get rid of old window parameters
             ;; (e.g. prev/next buffers) of old window.
-            (split-window) (delete-window))))
+            (split-window nil window-safe-min-width t)
+            (delete-window))))
 
       (let ((buffer
              (if (and (functionp tab-bar-new-tab-choice)
diff --git a/lisp/window.el b/lisp/window.el
index 016d53ffbdd..a11b1a51f8f 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -6382,7 +6382,7 @@ windows can get as small as `window-safe-min-height' and
                      (selected-window)))
       (delete-other-windows-internal window root)
       ;; Create a new window to replace the existing one.
-      (setq window (prog1 (split-window window)
+      (setq window (prog1 (split-window window window-safe-min-width t)
                      (delete-window window)))))
 
   (set-window-dedicated-p window nil)