 ;;; interactives
 (defun emdocs-kill-server ()
   "docstring"
-  (interactive)
   (if (and *emdocs-server*
            (not (eq (process-status *emdocs-server*) 'closed)))
       (delete-process *emdocs-server*))

                                 buffer beg end prev-length))))
                (setq-local after-change-functions
                            (cons emdocs-after-change-lambda
                                  after-change-functions))))))
      (message "Not connected to internet: exiting.")
      (setq emdocs-mode nil)
      (emdocs-disconnect))))

        `(:buffer ,(if (bufferp buffer)
                       (buffer-name buffer)
                     buffer)
          :ip ,(emdocs-get-internal-ip-address))))
    (let* ((json-object-type 'plist)
           (json-msg (json-read-from-string msg))
           (buffer (plist-get json-msg :buffer))
