emacs-jabber jabber-sawfish.el,1.1,1.2

[Magnus H. <leg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv4243

Modified Files:
	jabber-sawfish.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-356
Creator:  Magnus Henoch <ma...@fr...>

Fix for jabber-sawfish

Patch from Detlev Zundel.


Index: jabber-sawfish.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-sawfish.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- jabber-sawfish.el	31 Aug 2005 20:10:15 -0000	1.1
+++ jabber-sawfish.el	7 May 2007 02:04:55 -0000	1.2
@@ -29,9 +29,11 @@
   (let ((process-connection-type nil))
     (start-process-shell-command 
      "jabber-sawfish" nil "echo" 
-     (concat "'(progn (display-message \"" 
+     (concat "'(progn (require (quote timers)) (display-message \""
 	     message
-	     "\")(make-timer (lambda () (display-message nil)) 3))' | sawfish-client - &> /dev/null"))))
+	     "\")(make-timer (lambda () (display-message nil)) "
+	     (number-to-string jabber-sawfish-display-time)
+	     "))' | sawfish-client - &> /dev/null"))))
 
 (define-jabber-alert sawfish "Display a message through the Sawfish window manager"
   'jabber-sawfish-display-message)