[sawfish] display-message-with-timeout now must be called with a timeout

[Christopher Bratusek <chrisb src gnome org>]

commit 86b6e3e594bb0a7486f49e8a91fb249a1788a28c
Author: chrisb <zanghar freenet de>
Date:   Sat Sep 12 16:28:41 2009 +0200

    display-message-with-timeout now must be called with a timeout

 ChangeLog                        |    2 ++
 lisp/sawfish/wm/commands/user.jl |    2 +-
 2 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 4737bc8..0fec7dc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -45,6 +45,8 @@
 
 	* Makefile.in: don't remove ancient Sawmill.desktop
 
+	* lisp/sawfish/wm/user.jl: display-message-with-timeout now must be called with a timeout
+
 2009-09-11  Christopher Bratusek <zanghar freenet de>
 	* configure.in
 	* Makedefs.in
diff --git a/lisp/sawfish/wm/commands/user.jl b/lisp/sawfish/wm/commands/user.jl
index a0966f3..77510a3 100644
--- a/lisp/sawfish/wm/commands/user.jl
+++ b/lisp/sawfish/wm/commands/user.jl
@@ -81,7 +81,7 @@
   ;; display-message-with-timeout
   ;; like display-message, but it dissapears
   ;; after `timemout' seconds
-  (define (display-message-with-timeout message #!optional (timeout 1))
+  (define (display-message-with-timeout message timeout)
     (display-message message)
     (make-timer (lambda () (display-message nil)) timeout))