Commit: 90b7fb5305ed9a825d4a1cd5c5fdbad8b6394e08 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Revision: 90b7fb5305ed9a825d4a1cd5c5fdbad8b6394e08 (tree)
• Time: 2008-01-17 09:13:29
• Author: Janek Kozicki <jkozicki@src....>
• Commiter: Janek Kozicki

Log Message

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

svn path=/trunk/; revision=4207

Change Summary

• modified: lisp/sawfish/wm/workspace.jl

Incremental Difference

--- a/lisp/sawfish/wm/workspace.jl
+++ b/lisp/sawfish/wm/workspace.jl
@@ -1,5 +1,5 @@
 ;; workspace.jl -- similar to virtual desktops
-;; $Id$
+;; $Id: workspace.jl,v 1.162 2003/04/03 02:50:12 jsh Exp $
 
 ;; Copyright (C) 1999 John Harper <[e-mail]>
 
@@ -562,7 +562,7 @@ window, one of `stop', `keep-going', `wrap-around'")
 	(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