 
 (defclass emdocs-client ()
   ((process
+    :initform nil
     :initarg :process
     :accessor emdocs-get-process
     :documentation "docstring")

   :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)))

                (remove emdocs-after-change-lambda after-change-functions))
    (setq-local emdocs-after-change-lambda nil)))

(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)
