[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dape 9ecd6ba580 5/5: Use stdout from adapter in repl
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dape 9ecd6ba580 5/5: Use stdout from adapter in repl |
Date: |
Sat, 30 Dec 2023 18:57:37 -0500 (EST) |
branch: externals/dape
commit 9ecd6ba580ee49ef3804681369f09f7d2e7a9211
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>
Use stdout from adapter in repl
Adds output from dlv to console
---
dape-tests.el | 2 ++
dape.el | 14 ++++++++++----
2 files changed, 12 insertions(+), 4 deletions(-)
diff --git a/dape-tests.el b/dape-tests.el
index 4e15dcbc78..163c3f7095 100644
--- a/dape-tests.el
+++ b/dape-tests.el
@@ -101,6 +101,8 @@ Helper for `dape-test--with-files'."
(string-match-p "\\*dape-.+\\*"
(buffer-name buffer)))
(buffer-list))))
+ (dape-test--should
+ (not (process-list)))
(advice-remove 'yes-or-no-p 'always-yes)
;; clean up files
(delete-directory temp-dir t)))))
diff --git a/dape.el b/dape.el
index 80ea058dc8..c316fa11a4 100644
--- a/dape.el
+++ b/dape.el
@@ -1691,11 +1691,17 @@ Starts a new process as per request of the debug
adapter."
:buffer buffer
:sentinel 'dape--process-sentinel
:filter (lambda (_process string)
- (dape--debug 'std-server
- "Server stdout:\n%s"
- string))
+ (dape--repl-message string))
:noquery t
- :file-handler t))
+ :file-handler t
+ :stderr
+ (make-pipe-process
+ :name "Dape adapter stderr"
+ :filter (lambda (_process string)
+ (dape--debug 'std-server
+ "Server stdout:\n%s"
+ string))
+ :buffer buffer)))
(dape--debug 'info "Server process started %S"
(process-command dape--server-process))
;; FIXME Why do I need this?