Guard against placing "dead" stack pointers

timcharper · Jan 17, 2024 · 73a36ef · 73a36ef
1 parent 05b59de
commit 73a36ef
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/dape.el b/dape.el
@@ -2417,7 +2417,8 @@ See `dape--callback' for expected CB signature."
 If SKIP-STACK-POINTER-FLASH is non nil refrain from flashing line.
 If SKIP-GOTO is non nil refrain from going to selected stack."
  (dape--remove-stack-pointers)
- (when-let ((frame (dape--current-stack-frame conn)))
+ (when-let (((dape--stopped-threads conn))
+ (frame (dape--current-stack-frame conn)))
  (let ((deepest-p (eq frame (car (plist-get (dape--current-thread conn)
  :stackFrames)))))
  (dape--with dape--source-ensure (conn frame)