[elpa] externals/realgud eeb4c2f 013/140: Bug in last commit.

[Rocky Bernstein]

branch: externals/realgud
commit eeb4c2f909e613970805bc54ab7fe78a509d8f2e
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    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))))