From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 25 Dec 2023 12:59:26 +0000 (+0200)
Subject: Fix 'split-root-window-right' and 'split-root-window-below'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be8a7155b48198b08bbc4844b2ce60c127405fb7;p=emacs.git

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)
---

diff --git a/lisp/window.el b/lisp/window.el
index 35de790d85e..2c001d4112f 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5723,7 +5723,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)
@@ -5763,7 +5764,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.