Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Remove "--" from the name of autoloaded 'window--get-split-combination'

Browse source 
* lisp/window-x.el (window-get-split-combination, split-frame):
* lisp/tab-bar.el (tab-bar-split-tab):
Rename 'window--get-split-combination' to 'window-get-split-combination'.
This commit is contained in:
Juri Linkov 2026-01-22 20:09:47 +02:00
parent 8ccab6bf06
commit b4a5948d33
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/tab-bar.el
View file

@ -1992,7 +1992,7 @@ include TAB's selected window and delete those windows from TAB."
(user-error "ARG %s exceeds number of windows %s that can be split off"
(abs arg) (1- total-window-count)))
(t
(let* ((comb (window--get-split-combination main arg))
(let* ((comb (window-get-split-combination main arg))
(ws (window-state-get comb)))
(delete-window comb)
(tab-bar-new-tab)

4
lisp/window-x.el
View file

@ -341,7 +341,7 @@ FRAME1."
frame1))
;;;###autoload
(defun window--get-split-combination (window arg)
(defun window-get-split-combination (window arg)
"Return window combination suitable for `split-frame'.
WINDOW is the main window in which the combination should be derived.
@ -417,7 +417,7 @@ absolute value of ARG. Return the new frame."
(user-error "ARG %s exceeds number of windows %s that can be split off"
(abs arg) (1- total-window-count)))
(t
(let ((comb (window--get-split-combination main arg)))
(let ((comb (window-get-split-combination main arg)))
(window-state-put (window-state-get comb)
(window-main-window (make-frame)))
(delete-window comb))