branch: externals/eglot
commit 4bbf810fccf371f89f79be28bbc3afcefe12d3a4
Author: João Távora <joaotav...@gmail.com>
Commit: João Távora <joaotav...@gmail.com>
Don't return implementation details in jsonrpc-async-request
* jsonrpc.el (jsonrpc-async-request): Pass everything to
jsonrpc-async-request-1.
(jsonrpc--async-request-1): New function.
(jsonrpc-request): Use it.
---
jsonrpc.el | 22 +++++++++++++++++-----
1 file changed, 17 insertions(+), 5 deletions(-)
diff --git a/jsonrpc.el b/jsonrpc.el
index f801931..35516d0 100644
--- a/jsonrpc.el
+++ b/jsonrpc.el
@@ -507,9 +507,9 @@ request and a process object.")
method
params
&rest args
- &key success-fn error-fn timeout-fn
- (timeout jrpc-default-request-timeout)
- (deferred nil))
+ &key _success-fn _error-fn
+ _timeout-fn
+ _timeout _deferred)
"Make a request to PROC, expecting a reply, return immediately.
The JSONRPC request is formed by METHOD, a symbol, and PARAMS a
JSON object.
@@ -529,9 +529,21 @@ sent at all, in case it is overridden in the meantime by a
new
request with identical DEFERRED and for the same buffer.
However, in that situation, the original timeout is kept.
+Returns nil."
+ (apply #'jsonrpc--async-request-1 proc method params args))
+
+(cl-defun jsonrpc--async-request-1 (proc
+ method
+ params
+ &rest args
+ &key success-fn error-fn timeout-fn
+ (timeout jrpc-default-request-timeout)
+ (deferred nil))
+ "Does actual work for `jsonrpc-async-request'.
+
Return a list (ID TIMER). ID is the new request's ID, or nil if
the request was deferred. TIMER is a timer object set (or nil, if
-TIMEOUT is nil)"
+TIMEOUT is nil)."
(let* ((id (jsonrpc--next-request-id))
(timer nil)
(make-timer
@@ -604,7 +616,7 @@ DEFERRED is passed to `jsonrpc-async-request', which see."
(catch tag
(setq
id-and-timer
- (jsonrpc-async-request
+ (jsonrpc--async-request-1
proc method params
:success-fn (lambda (result) (throw tag `(done ,result)))
:error-fn
