Merge pull request #369 from tpine/remove-clisp-window-urgency-workar…

…ound window-urgent-p: Remove clisp flags workaround
stumpwm · Jun 13, 2017 · 5bda99a · 5bda99a
2 parents 2698bb1 + f37397b
commit 5bda99a
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/window.lisp b/window.lisp
@@ -131,10 +131,7 @@ WINDOW"
 _NET_WM_STATE_DEMANDS_ATTENTION set"
   (let* ((hints (xlib:wm-hints (window-xwin window)))
          (flags (when hints (xlib:wm-hints-flags hints))))
-    ;; XXX: as of clisp 2.46 flags is a list, not a number.
-    (or (and flags (if (listp flags)
-                       (find :urgency flags)
-                       (logtest 256 flags)))
+    (or (and flags (logtest 256 flags))
         (find-wm-state (window-xwin window) :_NET_WM_STATE_DEMANDS_ATTENTION))))
 
 (defcommand next-urgent () ()