From c0a4a508116a8e0880530f4da2eb769af882d0eb Mon Sep 17 00:00:00 2001 From: SAKURAI Masashi Date: Sun, 4 Aug 2013 14:27:50 +0900 Subject: [PATCH] Change asynchronous-timeout time and counter. (Issue #15) --- epc.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/epc.el b/epc.el index 33a4248..c0f1d53 100644 --- a/epc.el +++ b/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