Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv29810
Modified Files:
jabber-keepalive.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-369
Creator: Magnus Henoch <ma...@fr...>
Add optional jc argument to jabber-keepalive-start
Index: jabber-keepalive.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-keepalive.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- jabber-keepalive.el 15 Apr 2007 23:53:16 -0000 1.6
+++ jabber-keepalive.el 31 Jul 2007 07:05:21 -0000 1.7
@@ -49,8 +49,11 @@
(defvar jabber-keepalive-debug nil
"Log keepalive traffic when non-nil")
-(defun jabber-keepalive-start ()
- "Activate keepalive"
+(defun jabber-keepalive-start (&optional jc)
+ "Activate keepalive.
+The JC argument makes it possible to add this function to
+`jabber-post-connect-hooks'; it is ignored. Keepalive is activated
+for all accounts regardless of the argument."
(interactive)
(when jabber-keepalive-timer
@@ -62,7 +65,7 @@
'jabber-keepalive-do))
(add-hook 'jabber-post-disconnect-hook 'jabber-keepalive-stop))
-(defun jabber-keepalive-stop()
+(defun jabber-keepalive-stop ()
"Deactivate keepalive"
(interactive)
|
