feature/eglot2emacs eb9d6281b5 117/120: Do use eglot-connect-timeout if eglot-sync-connect is t

[João Távora]

branch: feature/eglot2emacs
commit eb9d6281b58f50927afdc2fdb2fcebf76e2ffe23
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Do use eglot-connect-timeout if eglot-sync-connect is t
    
    Reported by Eli Zaretskii <eliz@gnu.org>
    
    * eglot.el (eglot--connect): Use eglot-connect-timeout in the case
    eglot-sync-connect is t.
---
 lisp/progmodes/eglot.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index d3f5935a9e..18523067fa 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1282,7 +1282,8 @@ in project `%s'."
                      (cond ((numberp eglot-sync-connect)
                             (accept-process-output nil eglot-sync-connect))
                            (eglot-sync-connect
-                            (while t (accept-process-output nil 30)))))))
+                            (while t (accept-process-output
+                                      nil eglot-connect-timeout)))))))
               (pcase retval
                 (`(error . ,msg) (eglot--error msg))
                 (`nil (eglot--message "Waiting in background for server `%s'"