From 1f886c4932929e0d0b28d4b776e9a3dadfbbaf2a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 25 Dec 2023 14:59:26 +0200 Subject: [PATCH] Fix 'split-root-window-right' and 'split-root-window-below' * lisp/window.el (split-root-window-right) (split-root-window-below): Fix the 'interactive' spec to avoid misbehaving when invoked with no prefix argument. (Bug#67452) (cherry picked from commit be8a7155b48198b08bbc4844b2ce60c127405fb7) --- lisp/window.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/window.el b/lisp/window.el index 4ef55a8e947..4812e23dbe9 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -5737,7 +5737,8 @@ The current window configuration is retained in the top window, the lower window takes up the whole width of the frame. SIZE is handled as in `split-window-below', and interactively is the prefix numeric argument." - (interactive "p") + (interactive `(,(when current-prefix-arg + (prefix-numeric-value current-prefix-arg)))) (split-window-below size (frame-root-window))) (defun split-window-right (&optional size window-to-split) @@ -5777,7 +5778,8 @@ The current window configuration is retained within the left window, and a new window is created on the right, taking up the whole height of the frame. SIZE is treated as by `split-window-right' and interactively, is the prefix numeric argument." - (interactive "p") + (interactive `(,(when current-prefix-arg + (prefix-numeric-value current-prefix-arg)))) (split-window-right size (frame-root-window))) ;;; Balancing windows. -- 2.39.5