x11-wm/stumpwm.stumpwm
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm.git synced 2026-09-10 07:26:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix frame-head to work with iresize

Browse source 
setup-iresize can cause frame-head to be called with a head-frame
argument.
This commit is contained in:
Axel Svensson 2022-11-09 19:20:15 +01:00
parent d2bc558e80
commit 488200e9a0
2 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
tests/integration-tests/tests-expected-to-fail
View file

@ -5,4 +5,3 @@ issue-0993
issue-1004
issue-1005
issue-1006
test-basic-iresize

2
tile-group.lisp
View file

@ -358,7 +358,7 @@
(+ (frame-y frame) (frame-height frame))))
(defmethod frame-head ((group tile-group) frame)
(find-if (lambda (head) (find frame (flatten (tile-group-frame-head group head))))
(find-if (lambda (head) (or (eq head frame) (find frame (flatten (tile-group-frame-head group head)))))
(group-heads group)))
(defun project-x (head x)