[sawfish: 2/4] Set window type to dock in mark-window-as-dock.

[Christopher Bratusek <chrisb src gnome org>]

commit de44e31f36e902853910c6cf714eb29318f99b87
Author: Timo Korvola <tkorvola iki fi>
Date:   Thu Jun 25 21:59:11 2009 +0300

    Set window type to dock in mark-window-as-dock.

 lisp/sawfish/wm/windows.jl |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)
---
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index df69be9..7bea112 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -188,6 +188,7 @@ then be the numeric id of its parent window."
     (window-put w 'dock-type t)
     (mapc (lambda (p)
 	    (window-put w p t)) dock-window-properties)
+    (set-window-type w 'dock)
     (set-window-depth w dock-window-depth))
 
   (define (window-in-cycle-p w #!key ignore-cycle-skip)