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)
|
