Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv12456
Modified Files:
jabber-newdisco.el jabber-bookmarks.el fsm.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-528
Creator: Magnus Henoch <ma...@fr...>
Use 0 instead of 0.1 as timeout for run-with-timer
Index: fsm.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/fsm.el,v
retrieving revision 2.5
retrieving revision 2.6
diff -u -d -r2.5 -r2.6
--- fsm.el 8 Mar 2008 11:13:48 -0000 2.5
+++ fsm.el 17 Jun 2008 14:46:42 -0000 2.6
@@ -313,7 +313,7 @@
"Send EVENT to FSM asynchronously.
If the state machine generates a response, eventually call
CALLBACK with the response as only argument."
- (run-with-timer 0.1 nil #'fsm-send-sync fsm event callback))
+ (run-with-timer 0 nil #'fsm-send-sync fsm event callback))
(defun fsm-update (fsm new-state new-state-data timeout)
(let ((fsm-name (cadr fsm))
Index: jabber-bookmarks.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-bookmarks.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- jabber-bookmarks.el 31 May 2008 08:49:31 -0000 1.11
+++ jabber-bookmarks.el 17 Jun 2008 14:46:42 -0000 1.12
@@ -82,7 +82,7 @@
If REFRESH is non-nil, always fetch bookmarks."
(let ((bookmarks (gethash (jabber-connection-bare-jid jc) jabber-bookmarks)))
(if (and (not refresh) bookmarks)
- (run-with-timer 0.1 nil cont jc (when (listp bookmarks) bookmarks))
+ (run-with-timer 0 nil cont jc (when (listp bookmarks) bookmarks))
(lexical-let* ((cont cont)
(callback (lambda (jc result) (jabber-get-bookmarks-1 jc result cont))))
(jabber-private-get jc 'storage "storage:bookmarks"
Index: jabber-newdisco.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-newdisco.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- jabber-newdisco.el 13 Feb 2007 01:07:56 -0000 1.5
+++ jabber-newdisco.el 17 Jun 2008 14:46:42 -0000 1.6
@@ -1,6 +1,6 @@
;;; jabber-newdisco.el --- caching disco API
-;; Copyright (C) 2005 Magnus Henoch
+;; Copyright (C) 2005, 2008 Magnus Henoch
;; Author: Magnus Henoch <ma...@fr...>
@@ -45,7 +45,7 @@
(remhash (cons jid node) jabber-disco-info-cache))
(let ((result (gethash (cons jid node) jabber-disco-info-cache)))
(if result
- (and callback (run-with-timer 0.1 nil callback jc closure-data result))
+ (and callback (run-with-timer 0 nil callback jc closure-data result))
(jabber-send-iq jc jid
"get"
`(query ((xmlns . "http://jabber.org/protocol/disco#info")
@@ -100,7 +100,7 @@
(remhash (cons jid node) jabber-disco-items-cache))
(let ((result (gethash (cons jid node) jabber-disco-items-cache)))
(if result
- (and callback (run-with-timer 0.1 nil callback jc closure-data result))
+ (and callback (run-with-timer 0 nil callback jc closure-data result))
(jabber-send-iq jc jid
"get"
`(query ((xmlns . "http://jabber.org/protocol/disco#items")
|
