1
#! /bin/sh /usr/share/dpatch/dpatch-run
2
## fix-select-workspace.dpatch by GSR <gsr.bugs@infernal-iceberg.com>
4
## DP: Ooverrides the original function to one that makes sure the
5
## DP: dont-focus and inner-thunk are key params as expected by
6
## DP: select-workspace*
11
diff -urNad sawfish-1.3+svn4194~/lisp/sawfish/wm/workspace.jl sawfish-1.3+svn4194/lisp/sawfish/wm/workspace.jl
12
--- sawfish-1.3+svn4194~/lisp/sawfish/wm/workspace.jl 2003-04-02 20:50:12.000000000 -0600
13
+++ sawfish-1.3+svn4194/lisp/sawfish/wm/workspace.jl 2007-06-28 18:22:57.225442169 -0500
15
(call-hook 'workspace-state-change-hook))))
17
(define (select-workspace space #!optional dont-focus inner-thunk)
18
- (select-workspace* space dont-focus inner-thunk))
19
+ (select-workspace* space #:dont-focus dont-focus #:inner-thunk inner-thunk))
21
;; return a list of all windows on workspace index SPACE
22
(define (workspace-windows