branch: externals/dape
commit f40d7932ccc44e7e340e53ff850791fd1494e6b1
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Print both description and text from stopped event
---
dape.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/dape.el b/dape.el
index 6733d00946..4aacf532b5 100644
--- a/dape.el
+++ b/dape.el
@@ -1086,8 +1086,9 @@ Starts a new process as per request of the debug adapter."
(plist-get body :allThreadsStopped)
(dape--callback
(dape--update process)))
- (when-let ((desc (plist-get body :description)))
- (dape--repl-insert-text (concat desc "\n")
+ (when-let ((text (list (plist-get body :text)
+ (plist-get body :description))))
+ (dape--repl-insert-text (concat (mapconcat 'identity text "\n") "\n")
(if (equal "exception"
(plist-get body :reason))
'error