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)
This commit is contained in:
Eli Zaretskii 2023-12-25 14:59:26 +02:00
parent eb19984c4d
commit be8a7155b4

View file

@ -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.