diff options
author | Magnus Henoch <mange@freemail.hu> | 2007-08-15 19:31:13 +0000 |
---|---|---|
committer | Kirill A. Korinskiy <catap@catap.ru> | 2007-08-15 19:31:13 +0000 |
commit | 03cdbfd1b183d28c768c28e1d4213521bb81d1fc (patch) | |
tree | e9e5d7fc1b458a5ffaf072efbe36c60b4f47c494 /jabber-core.el | |
parent | 8c47ada1933ef7f525758c173ed26a7d39b27836 (diff) |
Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-382
Creator: Magnus Henoch <mange@freemail.hu>
Catch errors in jabber-process-input
Diffstat (limited to 'jabber-core.el')
-rw-r--r-- | jabber-core.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/jabber-core.el b/jabber-core.el index 1dbf2ee..9fa9334 100644 --- a/jabber-core.el +++ b/jabber-core.el @@ -738,7 +738,10 @@ submit a bug report, including the information below. (stream:error . jabber-stream-error-chain))))))) (dolist (f functions) - (funcall f jc xml-data)))) + (condition-case e + (funcall f jc xml-data) + ((debug error) + (fsm-debug-output "Error %s while processing %s" e xml-data)))))) (defun jabber-process-stream-error (jc xml-data) "Process an incoming stream error." |