branch: master
commit 9ed122a78cae0189d4f070a74e21cbe39cdf6909
Author: rocky <[email protected]>
Commit: rocky <[email protected]>
Correct enable/disable pattern for trepan.pl
---
realgud/debugger/trepan.pl/init.el | 6 +++---
test/test-regexp-trepanpl.el | 4 ++--
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/realgud/debugger/trepan.pl/init.el
b/realgud/debugger/trepan.pl/init.el
index 0cbb9ab..c66041c 100644
--- a/realgud/debugger/trepan.pl/init.el
+++ b/realgud/debugger/trepan.pl/init.el
@@ -148,16 +148,16 @@ realgud-loc-pat struct")
;; Breakpoint entry 4 disabled.
(setf (gethash "brkpt-disable" realgud:trepanpl-pat-hash)
(make-realgud-loc-pat
- :regexp (format "^Breakpoint entry %s disabled"
+ :regexp (format "^Breakpoint %s disabled"
realgud:regexp-captured-num)
:num 1))
;; Regular expression that describes a debugger "enable" (breakpoint) response.
;; For example:
-;; Breakpoint entry 4 enabled.
+;; Breakpoint 4 enabled.
(setf (gethash "brkpt-enable" realgud:trepanpl-pat-hash)
(make-realgud-loc-pat
- :regexp (format "^Breakpoint entry %s enabled"
+ :regexp (format "^Breakpoint %s enabled"
realgud:regexp-captured-num)
:num 1))
diff --git a/test/test-regexp-trepanpl.el b/test/test-regexp-trepanpl.el
index 9e4fb44..00e0242 100644
--- a/test/test-regexp-trepanpl.el
+++ b/test/test-regexp-trepanpl.el
@@ -104,12 +104,12 @@
;; (assert-t (numberp (loc-match test-text bp-del-pat)) "breakpoint delete
matching")
(note "breakpoint enable matching")
-(setq test-text "Breakpoint entry 4 enabled.\n")
+(setq test-text "Breakpoint 4 enabled.\n")
(assert-t (numberp (loc-match test-text bp-enable-pat)) "breakpoint enable
matching")
(note "breakpoint disable matching")
-(setq test-text "Breakpoint entry 2 disabled.\n")
+(setq test-text "Breakpoint 2 disabled.\n")
(assert-t (numberp (loc-match test-text bp-disable-pat)) "breakpoint disable
matching")
(end-tests)
