   :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-alist
+  '((name . "Emacs TEXTAREA")
+    (width . 80)
+    (height . 25)
+    (minibuffer . t)
+    (menu-bar-lines . t))
+  "Frame parameters for new frames.  See `default-frame-alist' for examples.
+If nil, the new frame will use the existing `default-frame-alist' values."
+  :group 'edit-server
+  :type '(repeat (cons :format "%v"
+		       (symbol :tag "Parameter")
+		       (sexp :tag "Value"))))
 
 (defcustom edit-server-new-frame-mode-line t
   "Show the emacs frame's mode-line if set to t; hide if nil."


(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

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