wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-528 

Creator:  Magnus Henoch <mange@freemail.hu>

Use 0 instead of 0.1 as timeout for run-with-timer
This commit is contained in:
Magnus Henoch 2008-06-17 14:46:42 +00:00 committed by Kirill A. Korinskiy
parent fc254cc1ca
commit 6c4a595f8a
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fsm.el
View File

@ -313,7 +313,7 @@ event handler explicitly asks to keep the timer."
"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))

2
jabber-bookmarks.el
View File

@ -82,7 +82,7 @@ called as the result of a filter function or a timer.
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"

6
jabber-newdisco.el
View File

@ -1,6 +1,6 @@
;;; jabber-newdisco.el --- caching disco API
;; Copyright (C) 2005 Magnus Henoch
;; Copyright (C) 2005, 2008 Magnus Henoch
;; Author: Magnus Henoch <mange@freemail.hu>
@ -45,7 +45,7 @@ invalidate cache and get fresh data."
(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 @@ invalidate cache and get fresh data."
(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")