From: João Távora <joaotavora@gmail.com>
Date: Fri, 10 Aug 2018 00:42:01 +0000 (+0100)
Subject: * eglot.el (advice-add jsonrpc-request): add &allow-other-keys
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~454
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4144d9adc5cea0fb8c2bb9db217cc8fd2d625e02;p=emacs.git

* eglot.el (advice-add jsonrpc-request): add &allow-other-keys
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 3b1b364ac96..7f0e91dbbc2 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1048,7 +1048,8 @@ Records START, END and PRE-CHANGE-LENGTH locally."
 ;; bad idea, since that might lead to the request never having a
 ;; chance to run, because `jsonrpc-connection-ready-p'.
 (advice-add #'jsonrpc-request :before
-            (cl-function (lambda (_proc _method _params &key deferred _timeout)
+            (cl-function (lambda (_proc _method _params &key
+                                        deferred &allow-other-keys)
                            (when (and eglot--managed-mode deferred)
                              (eglot--signal-textDocument/didChange))))
             '((name . eglot--signal-textDocument/didChange)))