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

invert check for mode-line cleanup

Browse source 
spotted by Joram Schrijver and Philip Adams
This commit is contained in:
mgr 2020-05-11 18:18:24 +02:00
parent 4506f7baa3
commit 0e95d4df1d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mode-line.lisp
View file

@ -259,7 +259,7 @@ timer.")
(defun destroy-mode-line (ml)
(run-hook-with-args *destroy-mode-line-hook* ml)
(xlib:destroy-window (mode-line-window ml))
(unless (mode-line-cc ml) ;; mode-lines of dock-type windows do not have a cc
(when (mode-line-cc ml) ;; mode-lines of dock-type windows do not have a cc
(xlib:free-gcontext (mode-line-gc ml)))
(setf *mode-lines* (remove ml *mode-lines*))
(sync-mode-line ml)