branch: externals/eglot
commit 0ba79647dbab24c65df097b0e53f6891b25e20e1
Author: João Távora <[email protected]>
Commit: João Távora <[email protected]>
* 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)))
