[sawfish] squashed several compiler warnings

[Christopher Bratusek <chrisb src gnome org>]

commit b433b26aded3cd7ee39995f72d80fabb990200c7
Author: chrisb <zanghar freenet de>
Date:   Mon Sep 7 17:16:01 2009 +0200

    squashed several compiler warnings

 ChangeLog                            |    7 +++++++
 lisp/sawfish/wm/ext/edge-flip.jl     |    4 ++--
 lisp/sawfish/wm/ext/error-handler.jl |    3 ++-
 lisp/sawfish/wm/misc.jl              |    3 ++-
 lisp/sawfish/wm/user.jl              |    1 +
 man/news.texi                        |    2 ++
 6 files changed, 16 insertions(+), 4 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 1dede26..51d6e77 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2009-09-07  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/user.jl
+	* lisp/sawfish/wm/misc.jl
+	* lisp/sawfish/wm/edge-flip.jl: squashed compiler warnings [Matthew Love]
+
+	* lisp/sawfish/wm/ext/error-handler.jl: export `error-handler-function' [Matthew Love]
+
 2009-09-06  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/ext/fdo-menu.jl: Partial rewrite of fdo-menu [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 @@
 		 (workspace-right)
 		 (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)))))
diff --git a/lisp/sawfish/wm/ext/error-handler.jl b/lisp/sawfish/wm/ext/error-handler.jl
index 2638a5f..8eb249a 100644
--- a/lisp/sawfish/wm/ext/error-handler.jl
+++ b/lisp/sawfish/wm/ext/error-handler.jl
@@ -22,7 +22,8 @@
 (define-structure sawfish.wm.ext.error-handler
 
     (export retrieve-errors
-	    display-errors)
+	    display-errors
+	    error-handler-function)
 
     (open rep
 	  rep.system
diff --git a/lisp/sawfish/wm/misc.jl b/lisp/sawfish/wm/misc.jl
index a6718db..52c7bde 100644
--- a/lisp/sawfish/wm/misc.jl
+++ b/lisp/sawfish/wm/misc.jl
@@ -28,7 +28,8 @@
 		   rep.module-system
 		   rep.io.files
 		   sawfish.wm.windows.subrs
-		   sawfish.wm.events))
+		   sawfish.wm.events
+		   sawfish.wm.ext.error-handler))
 
 (defvar *user-module* nil)
 
diff --git a/lisp/sawfish/wm/user.jl b/lisp/sawfish/wm/user.jl
index bab45ab..c164d4d 100644
--- a/lisp/sawfish/wm/user.jl
+++ b/lisp/sawfish/wm/user.jl
@@ -46,6 +46,7 @@
 	   sawfish.wm.util.groups
 	   sawfish.wm.util.display-window
 	   sawfish.wm.util.compat
+	   sawfish.wm.ext.error-handler
 	   sawfish.wm.ext.fdo-menu)
      (set-binds))
 
diff --git a/man/news.texi b/man/news.texi
index 32e3733..c6b55fe 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -146,6 +146,8 @@ your system, but the later doesn't
 
 @item Grow/Pack and Shrink/Yank options are in the same group now [Christopher Bratusek]
 
+ item Squashed several compiler warnings [Matthew Love]
+
 @item Doc updates [Christopher Bratusek, Jeremy Hankins, Teika Kazura]
 
 @item Updated OPTIONS [Christopher Bratusek]