Browse Source

This removes map-put from the code.

test-drone 2.1.5
Yann Bonnemay 11 months ago
committed by Nicolas Petton
parent
commit
e9b37479dc
2 changed files with 2 additions and 2 deletions
  1. +1
    -1
      indium-breakpoint.el
  2. +1
    -1
      indium-client.el

+ 1
- 1
indium-breakpoint.el View File

@ -40,7 +40,7 @@
When CONDITION is non-nil, the breakpoint will be hit when
CONDITION is true."
(let* ((brk (indium-breakpoint-create :condition (or condition ""))))
(map-put indium-breakpoint--local-breakpoints brk (current-buffer))
(setf (map-elt indium-breakpoint--local-breakpoints brk nil #'equal) (current-buffer))
(indium-breakpoint--add-overlay brk)
(when (indium-client-process-live-p)
(indium-client-add-breakpoint brk))))


+ 1
- 1
indium-client.el View File

@ -312,7 +312,7 @@ If has the following keys:
url url of the message origin
line line number in the resource that generated this message
result object to be logged."
(map-put payload 'result (indium-remote-object-from-alist
(setf (map-elt payload 'result nil #'equal) (indium-remote-object-from-alist
(map-elt payload 'result)))
(run-hook-with-args 'indium-client-log-hook
payload))


Loading…
Cancel
Save