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

          (string-equal "localhost" emdocs-ip-addr))
      (emdocs-attach-sockets-to-buffer (current-buffer) emdocs-ip-addr)
    (message
     (concat
      "Invalid ip address. "
      "Keep in mind emdocs only works for private ip addresses."))
    (setq emdocs-mode nil)))

(defun emdocs-test-if-client-attached-to-buffer (client)
