Enable breakpoint creation from breakpoint request

svaante · Oct 14, 2024 · 2de4925 · 2de4925
1 parent c845a67
commit 2de4925
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/dape.el b/dape.el
@@ -1962,8 +1962,12 @@ Update `dape--breakpoints' according to BODY."
                        :key (lambda (breakpoint)
                               (plist-get (dape--breakpoint-id breakpoint) conn)))))
         (dape--breakpoint-update conn breakpoint update)
-      ;; TODO Breakpoint event should be able to create breakpoints
-      )))
+      (dape--with-request (dape--source-ensure conn update)
+        (when-let ((marker (dape--object-to-marker conn update)))
+          (dape--with-line (marker-buffer marker) (plist-get update :line)
+            (dape--message "Creating breakpoint in %s:%d"
+                           (buffer-name) (plist-get update :line))
+            (dape--breakpoint-place)))))))
 
 (cl-defmethod dape-handle-event (conn (_event (eql module)) body)
   "Handle adapter CONNs module events.