branch: externals/dape
commit d730e3f4f2cdff9b37bb22ae09a2e520b4eacedb
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Improve look of config barf on error
---
dape.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/dape.el b/dape.el
index 827024ecbf..3ddfaf28f1 100644
--- a/dape.el
+++ b/dape.el
@@ -1680,10 +1680,9 @@ symbol `dape-connection'."
; barf config
(dape--repl-message
(format "With adapter request:\n%s"
- (pp-to-string
- (cl-loop for (key value) on (dape--config
conn) by 'cddr
- when (keywordp key)
- append (list key value))))
+ (cl-loop for (key value) on (dape--config
conn) by 'cddr
+ when (keywordp key)
+ concat (format "%s %S\n" key value)))
'error)
;; barf connection stderr
(when-let* ((proc (jsonrpc--process conn))
