[elpa] externals/realgud-trepan-ni b9b4bf4 11/25: Track breakpoint-deleted status change

[Rocky Bernstein]

branch: externals/realgud-trepan-ni
commit b9b4bf496b6ffe99971e734548c9ca9df5bac01f
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Track breakpoint-deleted status change
---
 trepan-ni/init.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/trepan-ni/init.el b/trepan-ni/init.el
index e5609aa..77fb30c 100644
--- a/trepan-ni/init.el
+++ b/trepan-ni/init.el
@@ -77,10 +77,10 @@ realgud-loc-pat struct")
 ;; Regular expression that describes a debugger "delete" (breakpoint)
 ;; response.
 ;; For example:
-;;   Removed 1 breakpoint(s).
+;;   Breakpoint 1 deleted breakpoint(s).
 (setf (gethash "brkpt-del" realgud:trepan-ni-pat-hash)
       (make-realgud-loc-pat
-       :regexp (format "^Removed %s breakpoint(s).\n"
+       :regexp (format "^Breakpoint %s deleted\n"
                       realgud:regexp-captured-num)
        :num 1))
 
@@ -166,6 +166,9 @@ realgud-loc-pat struct")
 (setf (gethash "break"      realgud:trepan-ni-command-hash)
       "setBreakpoint('%X',%l)")
 (setf (gethash "continue"   realgud:trepan-ni-command-hash) "cont")
+(setf (gethash "delete"     realgud:trepan-ni-command-hash)
+      "deleteBreakpoint(%p)")
+
 (setf (gethash "kill"       realgud:trepan-ni-command-hash) "kill")
 (setf (gethash "quit"       realgud:trepan-ni-command-hash) "")
 (setf (gethash "finish"     realgud:trepan-ni-command-hash) "out")