From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Sat, 19 Oct 2013 15:31:58 +0000 (+0200)
Subject: Ignore incompliant wm-class strings
X-Git-Url: https://repo.or.cz/w/clfswm.git/commitdiff_plain/ac139afed3f7d004b5c3e5ea70682a14c0819fde

Ignore incompliant wm-class strings
---

diff --git a/src/xlib-util.lisp b/src/xlib-util.lisp
index 20bcf5f..3081053 100644
--- a/src/xlib-util.lisp
+++ b/src/xlib-util.lisp
@@ -1017,8 +1017,10 @@ they should be windows. So use this function to make a window out of them."
 ;;; Windows wm class and name tests
 (defmacro defun-equal-wm-class (symbol class)
   `(defun ,symbol (window)
-     (when (xlib:window-p window)
-       (string-equal (xlib:get-wm-class window) ,class))))
+     (ignore-errors   ;; Ignore incompliant wm-class strings
+       (when (xlib:window-p window)
+         (string-equal (xlib:get-wm-class window) ,class)))))
+
 
 (defmacro defun-equal-wm-name (symbol name)
   `(defun ,symbol (window)