emacs-jabber jabber-newdisco.el, 1.5, 1.6 jabber-bookmarks.el, 1.11, 1.12 fsm.el, 2.5, 2.6

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

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