[clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-47-gac139af

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  ac139afed3f7d004b5c3e5ea70682a14c0819fde (commit)
      from  76d69f19dc7489700606a8d7ee3397fe0be8f592 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit ac139afed3f7d004b5c3e5ea70682a14c0819fde
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sat Oct 19 17:31:58 2013 +0200

    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)

-----------------------------------------------------------------------

Summary of changes:
 src/xlib-util.lisp |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager