diff options
| author | Juri Linkov <juri@linkov.net> | 2023-05-19 21:04:50 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2023-05-19 21:04:50 +0300 |
| commit | 8e61d23f71e75225e1e48a572db76c2845a4201a (patch) | |
| tree | f1ded942878cada787ef9c997046f7c3c032850a /lisp/window.el | |
| parent | 459d08c7fe7f723b3cefe71fa50bbe4481f66995 (diff) | |
| download | emacs-8e61d23f71e75225e1e48a572db76c2845a4201a.tar.gz emacs-8e61d23f71e75225e1e48a572db76c2845a4201a.tar.bz2 emacs-8e61d23f71e75225e1e48a572db76c2845a4201a.zip | |
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)
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |