mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 15:00:24 -08:00
Code Issues Projects Releases Wiki Activity

faster focus

Browse source
This commit is contained in:
David Botton 2024-04-10 00:49:02 -04:00
parent 6fc6f84f60
commit 660db998d4
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
source/clog-gui.lisp
View file

@ -333,9 +333,10 @@ window or nil if not found"))
(r nil))
(maphash (lambda (key value)
(declare (ignore key))
(when (and (equalp (window-title value) title)
(window-focus value)
(setf r value))))
(when (window-valid-p value)
(when (and (equalp (window-title value) title)
(window-focus value)
(setf r value)))))
(windows app))
r)))