Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Window handling bug fixes.

Browse source 
* lisp/play/zone.el: (zone--build-zone-buffer): select window.
(zone--prepare-frames): Avoid dedicated windows.
This commit is contained in:
Michael R. Mauger 2026-03-17 18:32:40 -04:00
parent dd264fb439
commit 6db7ab34a1
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/play/zone.el
View file

@ -341,6 +341,7 @@ buffer is visible, try to recenter it to expose more."
;; Switch in the source buffer into the window
(unless (eq (current-buffer) buf)
(set-window-buffer win buf nil))
(select-window win t)
;; Try to scroll the buffer into the window
(unless (< (window-end) (point-max))
(let ((scroll-margin 0))
@ -409,7 +410,8 @@ Based on the settings, the other frames may be similarly adjusted."
(dolist (w (if zone-all-windows-in-frame
(window-list f 'no-minibuf w1)
(list w1)))
(set-window-buffer w z nil))
(unless (window-dedicated-p w)
(set-window-buffer w z nil)))
(modify-frame-parameters f no-cursor)
;; Handle the remaining frames
(dolist (f (visible-frame-list))
@ -423,7 +425,8 @@ Based on the settings, the other frames may be similarly adjusted."
(dolist (w (if zone-all-windows-in-frame
(window-list f 'no-minibuf w1)
(list w1)))
(set-window-buffer w z nil))
(unless (window-dedicated-p w)
(set-window-buffer w z nil)))
(modify-frame-parameters f no-cursor)
(set-frame-selected-window f w1 t)))
(select-frame prim-frm)