Change asynchronous-timeout time and counter.

(Issue #15)

epc.el

@@ -83,7 +83,8 @@
 (defun epc:uid ()
   (incf epc:uid))
 
-(defvar epc:accept-process-timeout 100 "[internal] msec")
+(defvar epc:accept-process-timeout 150  "Asynchronous timeout time. (msec)")
+(defvar epc:accept-process-timeout-count 100 " Startup function waits (`epc:accept-process-timeout' * `epc:accept-process-timeout-count') msec for the external process getting ready.")
 
 
 (defstruct epc:connection
@@ -402,7 +403,7 @@ to see full traceback:\n%s" port-str))
           (setq cont nil))
          (t
           (incf cont)
-          (when (< 30 cont) ; timeout 3 seconds
+          (when (< epc:accept-process-timeout-count cont) ; timeout 15 seconds
             (error "Timeout server response."))))))
     (set-process-query-on-exit-flag process nil)
     (make-epc:manager :server-process process