branch: externals/dape
commit 56d0ad09d9777fa022017cf3323597a0199bfac7
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Store default-directory in config for debugging purposes
---
dape.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/dape.el b/dape.el
index 6bdc9b46ec..6b164f501c 100644
--- a/dape.el
+++ b/dape.el
@@ -1604,8 +1604,9 @@ If started by an startDebugging request expects PARENT to
symbol `dape-connection'."
(run-hooks 'dape-on-start-hooks)
(dape--repl-message "\n")
- (let ((default-directory (or (plist-get config 'command-cwd)
- default-directory))
+ (unless (plist-get config 'command-cwd)
+ (plist-put config 'command-cwd default-directory))
+ (let ((default-directory (plist-get config 'command-cwd))
(retries 30)
process server-process)
(cond
