emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/eglot bf9c850 52/69: Get rid of jsonrpc-obj


From: João Távora
Subject: [elpa] externals/eglot bf9c850 52/69: Get rid of jsonrpc-obj
Date: Fri, 22 Jun 2018 11:55:03 -0400 (EDT)

branch: externals/eglot
commit bf9c850404a7b6a644c497d4c558ce6ee9801da9
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]