 
 (defconst edit-server-edit-buffer-name "TEXTAREA"
   "Template name of the edit-server text editing buffers.")
-
-(defconst edit-server-new-frame-title "Emacs TEXTAREA"
-  "Template name of the emacs frame's title.")
-
-(defconst edit-server-new-frame-width 80
-  "The emacs frame's width.")
-
-(defconst edit-server-new-frame-height 25
-  "The emacs frame's height.")
 
 (defvar edit-server-proc 'nil
   "Network process associated with the current edit, made local when

  :group 'edit-server
  :type 'boolean)

(defcustom edit-server-new-frame-minibuffer t
  "Show the emacs frame's minibuffer if set to t; hide if nil."
  :group 'edit-server
  :type 'boolean)

(defcustom edit-server-new-frame-menu-bar t
  "Show the emacs frame's menu-bar if set to t; hide if nil."
  :group 'edit-server
  :type 'boolean)

(defcustom edit-server-new-frame-mode-line t
  "Show the emacs frame's mode-line if set to t; hide if nil."

When called interactivity, a prefix argument will cause it to be verbose.
"
  (interactive "P")
  (if (or (process-status "edit-server")
          (null (condition-case err
                    (make-network-process
                     :name "edit-server"
                     :buffer edit-server-process-buffer-name
                     :family 'ipv4
                     :host (if edit-server-host
                               edit-server-host
                             'local)
                     :service edit-server-port
                     :log 'edit-server-accept
                     :server t
                     :noquery t)
                  (file-error nil))))
      (message "An edit-server process is already running")
    (setq edit-server-clients '())
    (if verbose (get-buffer-create edit-server-log-buffer-name))
    (edit-server-log nil "Created a new edit-server process")))
