sawfish r4207 - trunk/lisp/sawfish/wm

[jkozicki svn gnome org]

Author: jkozicki
Date: Thu Jan 17 00:13:29 2008
New Revision: 4207
URL: http://svn.gnome.org/viewvc/sawfish?rev=4207&view=rev

Log:
Applying patch by GSR: fix-select-workspace

Fixes select-workspace in lisp/sawfish/wm/workspace.jl to make sure it uses key params in its call to select-workspace*

This patch is currently applied in the Debian package.

debian: http://bugs.debian.org/413584



Modified:
   trunk/lisp/sawfish/wm/workspace.jl

Modified: trunk/lisp/sawfish/wm/workspace.jl
==============================================================================
--- trunk/lisp/sawfish/wm/workspace.jl	(original)
+++ trunk/lisp/sawfish/wm/workspace.jl	Thu Jan 17 00:13:29 2008
@@ -562,7 +562,7 @@
 	(call-hook 'workspace-state-change-hook))))
 
   (define (select-workspace space #!optional dont-focus inner-thunk)
-    (select-workspace* space dont-focus inner-thunk))
+    (select-workspace* space #:dont-focus dont-focus #:inner-thunk inner-thunk))
 
   ;; return a list of all windows on workspace index SPACE
   (define (workspace-windows