From: Theodor Thornhill <theo@thornhill.no>
Date: Sat, 30 Mar 2024 08:35:16 +0000 (+0100)
Subject: Disable workDoneProgress if defcustom is nil
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=959acfc49fd21c90c1ef23bc353c5a8fe5137ee1;p=emacs.git

Disable workDoneProgress if defcustom is nil

There is no need to receive the $/progress notifications from the server
if we don't want to render them. Because they are effectively ignored
when eglot-report-progress is nil we'd rather not waste cycles on serde
of the messages.

* lisp/progmodes/eglot.el (eglot-client-capabilities): use value from
defcustom to decide whether or not to advertise to server.

(cherry picked from commit a33e7c0286c2a9c8af1c96db42f5c0c37611c9db)
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 14c7f84dc43..4fee79672c6 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1004,7 +1004,7 @@ ACTION is an LSP object of either `CodeAction' or `Command' type."
                                          [,@(mapcar
                                              #'car eglot--tag-faces)])))
             :window `(:showDocument (:support t)
-                      :workDoneProgress t)
+                      :workDoneProgress ,(if eglot-report-progress t :json-false))
             :general (list :positionEncodings ["utf-32" "utf-8" "utf-16"])
             :experimental eglot--{})))