From c035253be707c2ab1c9ad7a2f185c1395fe80ad4 Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Thu, 23 Oct 2008 22:09:14 +0000 Subject: [PATCH] Fix various silly errors --- jabber-tox.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/jabber-tox.el b/jabber-tox.el index bc5e2ad..64d5219 100644 --- a/jabber-tox.el +++ b/jabber-tox.el @@ -221,7 +221,7 @@ Accepts, modifies, and returns STATE-DATA." ;; negotiate away other content types later. ((null audio-content) (jingle-send-iq state-data "session-terminate" - '(reason () (unsupported-applications))) + '((reason () (unsupported-applications)))) (list nil state-data)) ;; Make sure ICE is in the list of transports. @@ -230,7 +230,7 @@ Accepts, modifies, and returns STATE-DATA." :test 'string= :key 'jabber-xml-get-xmlns)) (jingle-send-iq state-data "session-terminate" - '(reason () (unsupported-transports))) + '((reason () (unsupported-transports)))) (list nil state-data)) (t @@ -248,8 +248,10 @@ Accepts, modifies, and returns STATE-DATA." :int32 (string-to-number id) :string name :byte 0 - :uint32 clockrate - :uint32 channels + :uint32 (string-to-number clockrate) + :uint32 (if channels + (string-to-number channels) + 1) (cons :array (or @@ -280,7 +282,7 @@ Accepts, modifies, and returns STATE-DATA." ;; Or, it might turn out that we don't have any codecs ;; in common with our partner. (jingle-send-iq state-data "session-terminate" - '(reason () (media-error))) + '((reason () (media-error)))) (list nil state-data)))))))))) (define-state jingle :wait-for-codec-intersection -- 2.11.4.GIT