[elpa] externals/eglot 0ba7964 40/69: * jsonrpc.el (jsonrpc-log-event): Log time of event.

[João Távora]

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

    * jsonrpc.el (jsonrpc-log-event): Log time of event.
---
 jsonrpc.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/jsonrpc.el b/jsonrpc.el
index a8c86d0..7a50b64 100644
--- a/jsonrpc.el
+++ b/jsonrpc.el
@@ -450,12 +450,15 @@ originated."
                             (id                    'reply)
                             (t                     'message)))
              (type
-              (format "%s-%s" (or type :internal) subtype)))
+              (concat (format "%s" (or type 'internal))
+                      (if type
+                          (format "-%s" subtype)))))
         (goto-char (point-max))
-        (let ((msg (format "%s%s%s:\n%s\n"
+        (let ((msg (format "%s%s%s %s:\n%s\n"
                            type
                            (if id (format " (id:%s)" id) "")
                            (if error " ERROR" "")
+                           (current-time-string)
                            (pp-to-string message))))
           (when error
             (setq msg (propertize msg 'face 'error)))