branch: externals/realgud
commit eeb4c2f909e613970805bc54ab7fe78a509d8f2e
Author: rocky <[email protected]>
Commit: rocky <[email protected]>
Bug in last commit.
---
realgud/common/track.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/realgud/common/track.el b/realgud/common/track.el
index 174cb6a..804c45d 100644
--- a/realgud/common/track.el
+++ b/realgud/common/track.el
@@ -504,13 +504,16 @@ Otherwise return nil. CMD-MARK is set in the realgud-loc
object created.
;; set to return nil
nil)
;; else
- (let ((loc loc-or-error))
+ (let ((loc loc-or-error)
+ (bp-list (realgud-sget
'cmdbuf-info 'bp-list)))
+
;; Add breakpoint to list of
breakpoints
(with-current-buffer-safe
(marker-buffer (realgud-loc-marker loc))
(realgud-bp-add-info loc))
- (realgud-cmdbuf-info-bp-list=
- (add-to-list loc (realgud-sget
'cmdbuf-info 'bp-list)))
+ (unless (member loc bp-list)
+ (realgud-cmdbuf-info-bp-list=
(cons loc bp-list)))
+
;; Set to return location
loc-or-error))))
nil))))
