Don't auto-reconnect if last attempt lasted less than 3 seconds

* eglot.el (eglot--inhibit-auto-reconnect): New var.
(eglot--process-sentinel): Use it.

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 8f371d2011bf47dd561f1883c4210a34550c0f95..df03d0447890dcd6d7f3ca1f8763c39590d4a4e2 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -329,6 +329,9 @@ INTERACTIVE is t if called interactively."
        (with-current-buffer buffer
          (eglot--maybe-activate-editing-mode proc))))))
 
+(defvar eglot--inhibit-auto-reconnect nil
+  "If non-nil, don't autoreconnect on unexpected quit.")
+
 (defun eglot--process-sentinel (process change)
   "Called with PROCESS undergoes CHANGE."
   (eglot--debug "(sentinel) Process state changed to %s" change)
@@ -355,11 +358,20 @@ INTERACTIVE is t if called interactively."
     (cond ((eglot--moribund process)
            (eglot--message "(sentinel) Moribund process exited with status %s"
                            (process-exit-status process)))
-          (t
+          ((null eglot--inhibit-auto-reconnect)
            (eglot--warn
             "(sentinel) Reconnecting after process unexpectedly changed to %s."
             change)
-           (eglot-reconnect process)))
+           (eglot-reconnect process)
+           (setq eglot--inhibit-auto-reconnect
+                 (run-with-timer
+                  3 nil
+                  (lambda ()
+                    (setq eglot--inhibit-auto-reconnect nil)))))
+          (t
+           (eglot--warn
+            "(sentinel) Not auto-reconnecting, last one didn't last long."
+            change)))
     (force-mode-line-update t)
     (delete-process process)))