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

Reply via email to