Error at sawfish start

[fuchur <flohtransporter gmail com>]

Hi,

If i start or restart sawfish i get this error:
"Unbound variable: enter-frame-part-hook"

I have send this patch some time ago but someone have remove it.
 

-- 
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0

diff -urNad sawfish-git-9999.orgi/lisp/sawfish/wm/focus.jl sawfish-git-9999/lisp/sawfish/wm/focus.jl
--- sawfish-git-9999.orgi/lisp/sawfish/wm/focus.jl
+++ sawfish-git-9999/lisp/sawfish/wm/focus.jl
@@ -224,7 +223,8 @@
   (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))

Attachment: signature.asc
Description: PGP signature