        sock
        (concat
         (json-encode
-         `(:buffer ,(emdocs-get-attached-buffer client)
-           :ip ,(emdocs-get-internal-ip-address)))
+         (list :buffer (emdocs-get-attached-buffer client)
+               :ip (emdocs-get-internal-ip-address)))
         "\n"))
     (let* ((json-object-type 'plist)
            (json-msg (json-read-from-string msg))

                  (equal (emdocs-get-process client) sock))
                *emdocs-incoming-clients*)))))

(defun emdocs-send-file (client sock msg)
  (when (and (get-buffer (emdocs-get-attached-buffer client))
             (process-live-p (emdocs-get-process client)))

  (emdocs-broadcast-message
   (concat
    (json-encode
     (list :buffer (if (bufferp buffer)
                       (buffer-name buffer)
                     buffer)
           :edit_type type
           :point point
           :content content))
    "\n")))

(defun emdocs-after-change-function (buffer beg end prev-length)
