Skip to content

Commit f22290c

Browse files
committed
Fix fix breakpoint toggle in multisesion scenario
1 parent 579778c commit f22290c

File tree

1 file changed

+10
-10
lines changed

1 file changed

+10
-10
lines changed

dap-mode.el

+10-10
Original file line numberDiff line numberDiff line change
@@ -489,16 +489,16 @@ FILE-NAME is the filename in which the breakpoints have been udpated."
489489
(let ((set-breakpoints-req (dap--set-breakpoints-request
490490
file-name
491491
updated-file-breakpoints)))
492-
(-as-> (dap--get-sessions) $
493-
(-filter 'dap--session-running $)
494-
(--each $
495-
(dap--send-message set-breakpoints-req
496-
(dap--resp-handler
497-
(lambda (resp)
498-
(dap--update-breakpoints it
499-
resp
500-
file-name)))
501-
it))))
492+
(mapc (lambda (session)
493+
(dap--send-message
494+
set-breakpoints-req
495+
(dap--resp-handler
496+
(lambda (resp)
497+
(dap--update-breakpoints session
498+
resp
499+
file-name)))
500+
session))
501+
(-filter #'dap--session-running (dap--get-sessions))))
502502
(dap--persist-breakpoints breakpoints)))
503503

504504
(defun dap-breakpoint-toggle ()

0 commit comments

Comments
 (0)