diff --git a/lisp/window.el b/lisp/window.el index 48005fc93e..6c08e71aae 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -5414,6 +5414,12 @@ split-window ;; Sanitize sizes unless SIZE was specified. (unless size + ;; Make sure the new window gets any `min-margins' parameter + ;; of WINDOW. Otherwise, sanitizing screws up window sizes + ;; considerably (Bug#44483). + (let ((min-margins (window-parameter window 'min-margins))) + (when min-margins + (set-window-parameter new 'min-margins min-margins))) (window--sanitize-window-sizes horizontal)) (run-window-scroll-functions new)