Ensure that previous adapter is killed on restart

1 files changed, 5 insertions, 1 deletions

diff --git a/dape.el b/dape.el
index a3803e3..d07273e 100644
--- a/dape.el
+++ b/dape.el
@@ -2626,7 +2626,11 @@ SKIP-COMPILE is used internally for recursive calls."
           (dape-active-mode +1))
         (setf (dape--restart-in-progress-p conn) nil))))
    (;; Use previous connections configuration
-    dape--connections (dape (dape--config (car dape--connections))))
+    dape--connections
+    (let ((conn (or (and conn (dape--root-of conn))
+                    (car dape--connections))))
+      (dape--with-request (dape-kill conn)
+        (dape (dape--config conn)))))
    (;; Use history
     dape-history
     (dape (apply #'dape--config-eval (dape--config-from-string (car dape-history)))))