[elpa] externals/crdt 20ff83c 1/3: fix a bug in buffer remove handler

[ELPA Syncer]

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

    fix a bug in buffer remove handler
---
 crdt.el | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

diff --git a/crdt.el b/crdt.el
index 858d718..abac05c 100644
--- a/crdt.el
+++ b/crdt.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Qiantan Hong <qhong@alum.mit.edu>
 ;; URL: https://code.librehq.com/qhong/crdt.el
 ;; Keywords: collaboration crdt
-;; Version: 0.2.6
+;; Version: 0.2.7
 
 ;; This file is part of GNU Emacs.
 
@@ -35,7 +35,7 @@
 (require 'url)
 (require 'color)
 
-(defconst crdt-version "0.2.6")
+(defconst crdt-version "0.2.7")
 (defconst crdt-protocol-version "0.2.5")
 
 (defun crdt-version ()
@@ -1632,19 +1632,17 @@ CRDT--PROCESS should be bound to The network process 
for the client connection."
             (with-current-buffer buffer
               (crdt-mode 0)
               (setq crdt--session nil))))))
-    (let ((notify-names
-           (cl-remove-if-not
-            (lambda (buffer-name)
-              (gethash buffer-name (crdt--session-buffer-table crdt--session)))
-            buffer-names)))
-      (when notify-names
-        (warn "Server stopped sharing %s."
-              (mapconcat #'identity buffer-names ", "))))
-   (let ((crdt--session saved-session))
-     (crdt--broadcast-maybe crdt--message-string
-                            (when crdt--process
-                              (process-get crdt--process 'client-id)))
-     (crdt--refresh-buffers-maybe))))
+    (let ((crdt--session saved-session))
+      (let ((notify-names
+             (cl-remove-if-not
+              (lambda (buffer-name)
+                (gethash buffer-name (crdt--session-buffer-table 
crdt--session)))
+              buffer-names)))
+        (when notify-names
+          (warn "Server stopped sharing %s."
+                (mapconcat #'identity buffer-names ", "))))
+      (crdt--broadcast-maybe crdt--message-string (when crdt--process 
(crdt--client-id)))
+      (crdt--refresh-buffers-maybe))))
 
 (define-crdt-message-handler login (id session-name)
   (puthash 0 (crdt--make-contact-metadata nil nil