[patch] edge-flip.jl

here is a patch for edge-flip.jl, which gets rid of the compilation
warnings that were previously associated with it:

sawfish/wm/ext/edge-flip.jl:138: In function `edge-flip-for-edge':
sawfish/wm/ext/edge-flip.jl:138: warning: too many arguments to `workspace-up' (1 given, 0 used)
sawfish/wm/ext/edge-flip.jl:141: warning: too many arguments to `workspace-down' (1 given, 0 used)

These functions were called as (workspace-up 1) and
(workspace-down 1), however, in wm.ext.workspace-grid.jl, those two
functions are defined without parameters, and call a different function
which sets the 1 value which is called for.

edge-flipping up and down still work fine, so all should be good :)


Matthew Love

diff --git a/lisp/sawfish/wm/ext/edge-flip.jl b/lisp/sawfish/wm/ext/edge-flip.jl
index a1768d2..cc07d4e 100644
--- a/lisp/sawfish/wm/ext/edge-flip.jl
+++ b/lisp/sawfish/wm/ext/edge-flip.jl
@@ -135,10 +135,10 @@
 		 (rplaca ptr 1))
 		((eq edge 'top)
-		 (workspace-up 1)
+		 (workspace-up)
 		 (rplacd ptr (- (screen-height) 2)))
 		((eq edge 'bottom)
-		 (workspace-down 1)
+		 (workspace-down)
 		 (rplacd ptr 1)))
 	  (unless (= current-workspace orig)
 	    (warp-cursor (car ptr) (cdr ptr)))))

[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]