branch: externals/dape
commit a529cbea06ffc5a7427a963ddbe3b44991a99818
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Fix widget rendering when adapter exited
---
dape.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/dape.el b/dape.el
index 0c32b9dabb..d9bd01d236 100644
--- a/dape.el
+++ b/dape.el
@@ -1949,11 +1949,12 @@ Depth is decided by `dape--info-variables-fetch-depth'."
(lambda (tree)
(if (plist-get variable :variables)
t
- (dape--variables (dape--live-process)
- variable
- (dape--callback
- (when (plist-get variable :variables)
- (dape--info-update-widget tree))))
+ (when-let ((process (dape--live-process t)))
+ (dape--variables process
+ variable
+ (dape--callback
+ (when (plist-get variable :variables)
+ (dape--info-update-widget tree)))))
nil))
:expander
(lambda (tree)
@@ -1992,7 +1993,7 @@ Depth is decided by `dape--info-variables-fetch-depth'."
(cl-reduce (lambda (cb plist)
(dape--callback
(dape--evaluate-expression
- (dape--live-process)
+ (dape--live-process t)
(plist-get (dape--current-stack-frame) :id)
(plist-get plist :name)
"watch"
