                 (remove emdocs-after-change-lambda after-change-functions))
     (setq-local emdocs-after-change-lambda nil)))
 
-;;; interactives
 (defun emdocs-kill-server ()
   "docstring"
   (if (and *emdocs-server*
            (not (eq (process-status *emdocs-server*) 'closed)))
       (delete-process *emdocs-server*))
   (setq *emdocs-server* nil))
+
+;;; interactives
 
 (defun emdocs-get-ip-address ()
   (interactive)

   :server t
   :noquery t))

(defun emdocs-client-sentinel (buffer sock msg)
  "docstring"
  (with-current-buffer (emdocs-get-client-process-buffer buffer)
    (goto-char (point-min))
    (insert "sentinel:" msg)
    (unless (bolp) (newline)))

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

(defun emdocs-server-filter (sock msg)
  "docstring"
  ;; assumes will only receive json from emdocs-client-filter
