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

Creator:  Magnus Henoch <mange@freemail.hu>

Fix callback arguments in jabber-newdisco
This commit is contained in:
Magnus Henoch 2007-02-13 01:07:56 +00:00 committed by Kirill A. Korinskiy
parent 13791e7d6d
commit b328966022
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
jabber-newdisco.el
View File

@ -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 closure-data result))
(and callback (run-with-timer 0.1 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 closure-data result))
(and callback (run-with-timer 0.1 nil callback jc closure-data result))
(jabber-send-iq jc jid
"get"
`(query ((xmlns . "http://jabber.org/protocol/disco#items")