branch: externals/crdt
commit 9fdef6c11bc4ba17a6bef919ca4239430e4ba3d1
Author: Arte Ebrahimi <arteebrah...@gmail.com>
Commit: Arte Ebrahimi <arteebrah...@gmail.com>
Send leave message to tuntox process, ensure `crdt--stop-session` is
still called if error occurs
Co-authored-by: Jonathan Ming <ena...@proton.me>
---
crdt.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/crdt.el b/crdt.el
index d83f3bfde9..12a4df6554 100644
--- a/crdt.el
+++ b/crdt.el
@@ -2081,10 +2081,11 @@ Handle received STRING from PROCESS."
(process-get process 'crdt--downgrade-continuation))
;; This should only happens when we are in the middle of TLS
handshake
(funcall (process-get process 'crdt--downgrade-continuation))
- (when (process-get process 'tuntox-process)
- (process-send-string
- process
- (crdt--format-message `(leave ,(crdt--session-local-id
session)))))
+ (with-demoted-errors "CRDT Error: %S"
+ (when (process-get process 'tuntox-process)
+ (process-send-string
+ (process-get process 'tuntox-process)
+ (crdt--format-message `(leave ,(crdt--session-local-id
session))))))
(crdt--stop-session session))))))
;;; UI commands
