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

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

[elpa] externals/eglot aaca7de 60/69: Fix ridiculous bug


From: João Távora
Subject: [elpa] externals/eglot aaca7de 60/69: Fix ridiculous bug
Date: Fri, 22 Jun 2018 11:55:04 -0400 (EDT)

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

    Fix ridiculous bug
    
    * jsonrpc.el (jsonrpc-connection-send): Content-Length must be a
    string.
---
 jsonrpc.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/jsonrpc.el b/jsonrpc.el
index 0c38257..9a90f33 100644
--- a/jsonrpc.el
+++ b/jsonrpc.el
@@ -184,12 +184,12 @@ ID, METHOD, PARAMS, RESULT and ERROR. ")
 
 ;;; API optional
 (cl-defgeneric jsonrpc-connection-ready-p (connection what)
-"Tell if CONNECTION is ready for WHAT in current buffer.
+  "Tell if CONNECTION is ready for WHAT in current buffer.
 If it isn't, a deferrable `jsonrpc-async-request' will be
 deferred to the future.  By default, all connections are ready
 for sending requests immediately."
-(:method (_s _what)   ;; by default all connections are ready
-         t))
+  (:method (_s _what)   ;; by default all connections are ready
+           t))
 
 
 ;;; Convenience
@@ -395,7 +395,7 @@ connection object, called when the process dies .")
                              ,@(when error  `(:error  ,error))))
          (json (jsonrpc--json-encode message))
          (headers
-          `(("Content-Length" . ,(string-bytes json))
+          `(("Content-Length" . ,(format "%d" (string-bytes json)))
             ("Content-Type" . "application/vscode-jsonrpc; charset=utf-8"))))
     (process-send-string
      (jsonrpc--process connection)



reply via email to

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