[sawfish: 1/42] fixed failing jump-or-exec, when a windows doesn't have a class at all

[Christopher Bratusek <chrisb src gnome org>]

commit bd855a3551ad7b8fea49dc176a70bd9a29b3daf6
Author: Christopher Roy Bratusek <nano tuxfamily org>
Date:   Tue Apr 5 13:10:23 2011 +0200

    fixed failing jump-or-exec, when
    a windows doesn't have a class at all

 lisp/sawfish/wm/commands/jump-or-exec.jl |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/wm/commands/jump-or-exec.jl b/lisp/sawfish/wm/commands/jump-or-exec.jl
index 088f44f..925a5e6 100644
--- a/lisp/sawfish/wm/commands/jump-or-exec.jl
+++ b/lisp/sawfish/wm/commands/jump-or-exec.jl
@@ -49,7 +49,8 @@
       (cond ((and onfocused
 		  curwin
 		  (if match-class
-		      (string-match regex (window-class curwin))
+		      (and (window-class curwin)
+			   (string-match regex (window-class curwin)))
 		    (string-match regex (window-name curwin))))
 	     ;; Exec "onfocused"
 	     (cond ((commandp onfocused)