[elpa] externals/realgud 210bd76 053/140: moving breakpoint functions to more central locations

[Rocky Bernstein]

branch: externals/realgud
commit 210bd762d55bd77c12b646ab9871ba924c2fc800
Author: Jacob O'Donnell <address@hidden>
Commit: Jacob O'Donnell <address@hidden>

    moving breakpoint functions to more central locations
---
 realgud/common/track.el | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/realgud/common/track.el b/realgud/common/track.el
index e81ba90..f6afd72 100644
--- a/realgud/common/track.el
+++ b/realgud/common/track.el
@@ -237,18 +237,12 @@ evaluating (realgud-cmdbuf-info-loc-regexp 
realgud-cmdbuf-info)"
             ;; put into a list and iterate over that.
             (realgud-track-termination? text)
             (setq text-sans-loc (or (realgud-track-loc-remaining text) text))
-            (realgud-track-bp-enable-disable text-sans-loc
-                                             (realgud-cmdbuf-pat 
"brkpt-enable")
-                                             't)
-            (realgud-track-bp-enable-disable text-sans-loc
-                                             (realgud-cmdbuf-pat 
"brkpt-disable")
-                                             nil)
             (setq frame-num (realgud-track-selected-frame text))
             (if (and frame-num (not loc))
                 (setq loc (realgud-track-loc-from-selected-frame
                            text cmd-mark)))
 
-            (realgud:track-add-breakpoint (realgud-track-bp-loc text-sans-loc 
cmd-mark cmdbuf) cmdbuf)
+            (realgud:track-add-breakpoint text-sans-loc (realgud-track-bp-loc 
text-sans-loc cmd-mark cmdbuf) cmdbuf)
 
             (if loc
                 (let ((selected-frame
@@ -259,6 +253,7 @@ evaluating (realgud-cmdbuf-info-loc-regexp 
realgud-cmdbuf-info)"
                   (realgud-cmdbuf-info-in-debugger?= 't)
                   (realgud-cmdbuf-mode-line-update))
               (realgud:track-remove-breakpoints
+               text-sans-loc
                (realgud-track-bp-delete text-sans-loc cmd-mark cmdbuf)
                cmdbuf))
             )
@@ -267,16 +262,24 @@ evaluating (realgud-cmdbuf-info-loc-regexp 
realgud-cmdbuf-info)"
     )
   )
 
-(defun realgud:track-add-breakpoint (bp-loc cmdbuf)
+(defun realgud:track-add-breakpoint (text-sans-loc bp-loc cmdbuf)
   "Add a breakpoint fringe in source window if BP-LOC."
+  (realgud-track-bp-enable-disable text-sans-loc
+                                   (realgud-cmdbuf-pat "brkpt-enable")
+                                   't)
+
   (if bp-loc
       (let ((src-buffer (realgud-loc-goto bp-loc)))
         (realgud-cmdbuf-add-srcbuf src-buffer cmdbuf)
         (with-current-buffer src-buffer
           (realgud-bp-add-info bp-loc)))))
 
-(defun realgud:track-remove-breakpoints (bp-locs cmdbuf)
+(defun realgud:track-remove-breakpoints (text-sans-loc bp-locs cmdbuf)
   "Remove all breakpoints in source window found in BP-LOCS."
+  (realgud-track-bp-enable-disable text-sans-loc
+                                   (realgud-cmdbuf-pat "brkpt-disable")
+                                   nil)
+
   (dolist (bp-loc bp-locs)
     (let ((src-buffer (realgud-loc-goto bp-loc)))
       (realgud-cmdbuf-add-srcbuf src-buffer cmdbuf)