branch: externals/dape
commit 7f9700d2b6d7893e34e03fe3b08995c62d644dba
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Use prin1 formatting of objects in dape-debug
---
dape.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/dape.el b/dape.el
index b0ef3b5ead..6733d00946 100644
--- a/dape.el
+++ b/dape.el
@@ -567,7 +567,7 @@ If NOWARN does not error on no active process."
(defun dape--handle-object (process object)
"Handle a incoming parsed OBJECT from PROCESS."
- (dape--debug 'io "Received:\n%s" object)
+ (dape--debug 'io "Received:\n%S" object)
(when-let* ((type-string (plist-get object :type))
(type (intern type-string)))
(cl-case type
@@ -679,7 +679,7 @@ If NOWARN does not error on no active process."
(let* ((object (plist-put object :seq seq))
(json (json-serialize object :false-object nil))
(string (format "Content-Length: %d\r\n\r\n%s" (length json) json)))
- (dape--debug 'io "Sending:\n%s" object)
+ (dape--debug 'io "Sending:\n%S" object)
(process-send-string process string)))
(defun dape-request (process command arguments &optional cb)
