branch: externals/eglot
commit bf9c850404a7b6a644c497d4c558ce6ee9801da9
Author: João Távora <joaotav...@gmail.com>
Commit: João Távora <joaotav...@gmail.com>
Get rid of jsonrpc-obj
* jsonrpc.el (jsonrpc-obj): Remove this.
(jsonrpc--async-request-1): Don't jsonrpc-obj.
---
jsonrpc.el | 13 +++----------
1 file changed, 3 insertions(+), 10 deletions(-)
diff --git a/jsonrpc.el b/jsonrpc.el
index 41044e3..868233a 100644
--- a/jsonrpc.el
+++ b/jsonrpc.el
@@ -238,13 +238,6 @@ connection object, called when the process dies .")
(let ((inhibit-read-only t)) (erase-buffer) (read-only-mode t) proc))
(process-put proc 'jsonrpc-connection conn)))
-(defmacro jsonrpc-obj (&rest what)
- "Make WHAT a suitable argument for `json-encode'."
- (declare (debug (&rest form)))
- ;; FIXME: maybe later actually do something, for now this just fixes
- ;; the indenting of literal plists, i.e. is basically `list'
- `(list ,@what))
-
(defun jsonrpc--json-read ()
"Read JSON object in buffer, move point to end of buffer."
;; TODO: I guess we can make these macros if/when jsonrpc.el
@@ -608,12 +601,12 @@ TIMEOUT is nil)."
(list (or success-fn
(jsonrpc-lambda (&rest _ignored)
(jsonrpc--debug
- connection (jsonrpc-obj :message "success ignored"
- :id id))))
+ connection (list :message "success ignored"
+ :id id))))
(or error-fn
(jsonrpc-lambda (&key code message &allow-other-keys)
(jsonrpc--debug
- connection (jsonrpc-obj
+ connection (list
:message
(format "error ignored, status set (%s)"
message)
