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 1d72b4c52445e02221310dce06211affc767c0fb..cd485196b2edb75217caa9a49ed6bec4e596c64c 100644 (file)
--- 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)
 
 \f
 ;;; 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))