emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 9ed122a 199/215: Correct enable/disable pattern for trepan


From: Rocky Bernstein
Subject: [elpa] master 9ed122a 199/215: Correct enable/disable pattern for trepan.pl
Date: Sat, 30 Jul 2016 14:49:06 +0000 (UTC)

branch: master
commit 9ed122a78cae0189d4f070a74e21cbe39cdf6909
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]