[elpa] externals/crdt eb184d8 61/80: clean up *crdt - client*

[ELPA Syncer]

branch: externals/crdt
commit eb184d88314f9e10b976ab32ebcf8f2eb9b8515e
Author: Qiantan Hong <qhong@mit.edu>
Commit: Qiantan Hong <qhong@mit.edu>

    clean up *crdt - client*
---
 crdt.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/crdt.el b/crdt.el
index 70e72f7..13db964 100644
--- a/crdt.el
+++ b/crdt.el
@@ -1605,8 +1605,12 @@ Disconnect if it's a client session, or stop serving if 
it's a server session."
     (setq crdt--session-list
           (delq session crdt--session-list))
     (crdt--refresh-sessions-maybe)
-    (let ((proxy-process (process-get (crdt--session-network-process session) 
'tuntox-process)))
+    (let* ((process (crdt--session-network-process session))
+           (proxy-process (process-get process 'tuntox-process))
+           (process-buffer (process-buffer process)))
       (delete-process (crdt--session-network-process session))
+      (when (and process-buffer (buffer-live-p process-buffer))
+        (kill-buffer process-buffer))
       (when (and proxy-process (process-live-p proxy-process))
         (interrupt-process proxy-process)))
     (message "Disconnected.")))