From c5232c581e0ed714edb2cf30bd59f23511bd2fb2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Mon, 7 May 2018 13:45:10 +0100 Subject: [PATCH] Increase request timeout length to 10 seconds * eglot.el (eglot-request-timeout): New var. (eglot--request): Use it. --- lisp/progmodes/eglot.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 1d72b4c5244..cd485196b2e 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -48,8 +48,11 @@ (defface eglot-mode-line '((t (:inherit font-lock-constant-face :weight bold))) - "Face for package-name in EGLOT's mode line." - :group 'eglot) + "Face for package-name in EGLOT's mode line.") + +(defcustom eglot-request-timeout 10 + "How many seconds to way for a reply from the server." + :type :integer) ;;; Process management @@ -617,7 +620,7 @@ is a symbol saying if this is a client or server originated." (catch catch-tag (let ((timeout-timer (run-with-timer - 5 nil + eglot-request-timeout nil (if async-p (lambda () (remhash id (eglot--pending-continuations process)) -- 2.39.2