branch: externals/dape
commit b2d4e58f91393bccc67fd0e3fb5787ea6098e06c
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Rework uninitialized breakpoint hits
Reset to nil instead of 0 to remove the need to check if verified, if
value is numberp the breakpoint has been touched by the adapter and
nil if not.
---
dape.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/dape.el b/dape.el
index 99db81eba9..c866474dd0 100644
--- a/dape.el
+++ b/dape.el
@@ -2688,7 +2688,7 @@ contents."
(defun dape--breakpoints-reset ()
"Reset breakpoints hits."
(cl-loop for ov in dape--breakpoints
- do (overlay-put ov 'dape-hits 0)))
+ do (overlay-put ov 'dape-hits nil)))
(defun dape--breakpoints-stopped (hit-breakpoint-ids)
"Increment `dape-hits' from array of HIT-BREAKPOINT-IDS."
@@ -2696,7 +2696,8 @@ contents."
for ov = (cl-find id dape--breakpoints
:key (lambda (ov) (overlay-get ov 'dape-id)))
when ov
- do (overlay-put ov 'dape-hits (1+ (overlay-get ov 'dape-hits)))))
+ do (overlay-put ov 'dape-hits
+ (1+ (or (overlay-get ov 'dape-hits) 0)))))
(defun dape--breakpoints-at-point ()
"Dape overlay breakpoints at point."
@@ -3356,9 +3357,8 @@ displayed."
(dape--format-file-line file line)
(buffer-name buffer))
,@(when with-hits-p
- (if (overlay-get breakpoint 'dape-verified)
- (let ((hits (or (overlay-get breakpoint 'dape-hits) 0)))
- (list (format "%s" hits)))
+ (if-let ((hits (overlay-get breakpoint 'dape-hits)))
+ (list (format "%s" hits))
'("")))
,(cond
((overlay-get breakpoint 'dape-log-message)
