           (string-equal "localhost" emdocs-ip-addr))
       (emdocs-attach-sockets-to-buffer (current-buffer) emdocs-ip-addr)
     (message
-"Invalid ip address. Keep in mind emdocs only works for private ip addresses.")
+     (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)

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

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