branch: externals/dape
commit b7c578992dc12731dbd62701bcec72fb7820540d
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Fix unnecessary newline in stopped repl text
---
dape.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/dape.el b/dape.el
index 4aacf532b5..76d2fb9ba5 100644
--- a/dape.el
+++ b/dape.el
@@ -1086,9 +1086,10 @@ Starts a new process as per request of the debug
adapter."
(plist-get body :allThreadsStopped)
(dape--callback
(dape--update process)))
- (when-let ((text (list (plist-get body :text)
- (plist-get body :description))))
- (dape--repl-insert-text (concat (mapconcat 'identity text "\n") "\n")
+ (when-let ((texts (seq-filter 'stringp
+ (list (plist-get body :text)
+ (plist-get body :description)))))
+ (dape--repl-insert-text (concat (mapconcat 'identity texts "\n") "\n")
(if (equal "exception"
(plist-get body :reason))
'error