masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-03 19:03:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Have 'split-window' forget previous window height (Bug#78835)

Browse source 
* lisp/window.el (split-window): When WINDOW has a
'quit-restore' parameter that specifies a previous height to
restore, remove that when splitting vertically.  It does more
harm than good now (Bug#78835).
This commit is contained in:
Martin Rudalics 2025-06-20 08:51:58 +02:00
parent b6cf7c0942
commit 60a567af86
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/window.el
View file

@ -5899,6 +5899,16 @@ changed by this function."
window (- (if new-parent 1.0 (window-normal-size window horizontal)) window (- (if new-parent 1.0 (window-normal-size window horizontal))
new-normal))) new-normal)))
(unless horizontal
(let ((quit-restore (window-parameter window 'quit-restore)))
(when quit-restore
(let ((quad (nth 1 quit-restore)))
(when (and (listp quad) (integerp (nth 3 quad)))
;; When WINDOW has a 'quit-restore' parameter that
;; specifies a previous height to restore, remove that
;; - it does more harm than good now (Bug#78835).
(setf (nth 3 quad) nil))))))
(let ((new (split-window-internal (let ((new (split-window-internal
window new-pixel-size side new-normal refer))) window new-pixel-size side new-normal refer)))
(window--pixel-to-total frame horizontal) (window--pixel-to-total frame horizontal)