From: João Távora <joaotavora@gmail.com>
Date: Mon, 7 May 2018 12:45:10 +0000 (+0100)
Subject: Increase request timeout length to 10 seconds
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c5232c581e0ed714edb2cf30bd59f23511bd2fb2;p=emacs.git

Increase request timeout length to 10 seconds

* eglot.el (eglot-request-timeout): New var.
(eglot--request): Use it.
---

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