[sawfish] re-apply a patch to fix a startup-error (a remove-hook in tabgroup)

[Christopher Bratusek <chrisb src gnome org>]

commit 6ba94b1bb537cc83a3db6a6305607e591faa6c0f
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Tue Feb 8 18:23:52 2011 +0100

    re-apply a patch to fix a startup-error (a remove-hook in tabgroup)

 lisp/sawfish/wm/focus.jl |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/wm/focus.jl b/lisp/sawfish/wm/focus.jl
index 5acd8fe..e310b5b 100644
--- a/lisp/sawfish/wm/focus.jl
+++ b/lisp/sawfish/wm/focus.jl
@@ -224,7 +224,8 @@ EVENT-NAME)', where EVENT-NAME may be one of the following symbols:
   (define (raise-tabs-on-hover-setter)
     (if tab-raise-on-hover
         (add-hook 'enter-frame-part-hook raise-tabs-on-hover-action)
-      (remove-hook 'enter-frame-part-hook raise-tabs-on-hover-action)))
+      (when (in-hook-p 'enter-frame-part-hook raise-tabs-on-hover-action)
+        (remove-hook 'enter-frame-part-hook raise-tabs-on-hover-action))))
 
   (define (focus-click)
     (let ((w (current-event-window))