From 4897601e9ff2a43737300e9c95e398dbf7a46662 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sat, 9 Oct 2010 23:51:42 +1300 Subject: [PATCH] (gdb-mouse-toggle-breakpoint-margin) (gdb-mouse-toggle-breakpoint-fringe): Correct regexp to work when breakpoint number exceeds nine. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/gdb-ui.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 59f5b55ec2a..5800459f20a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-10-09 Richard Sharman (tiny change) + + * progmodes/gdb-ui.el (gdb-mouse-toggle-breakpoint-margin) + (gdb-mouse-toggle-breakpoint-fringe): Correct regexp to + work when breakpoint number exceeds nine. + 2010-10-05 David Koppelman * hi-lock.el (hi-lock-font-lock-hook): Check font-lock-fontified diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index aa4cfab1bad..b2a354c5410 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -2195,7 +2195,7 @@ If not in a source or disassembly buffer just set point." (if (posn-object posn) (let* ((bptno (get-text-property 0 'gdb-bptno (car (posn-string posn))))) - (string-match "\\([0-9+]\\)*" bptno) + (string-match "\\([0-9]+\\)*" bptno) (gdb-enqueue-input (list (concat gdb-server-prefix @@ -2222,7 +2222,7 @@ If not in a source or disassembly buffer just set point." (setq obj (overlay-get overlay 'before-string)))) (when (stringp obj) (let* ((bptno (get-text-property 0 'gdb-bptno obj))) - (string-match "\\([0-9+]\\)*" bptno) + (string-match "\\([0-9]+\\)*" bptno) (gdb-enqueue-input (list (concat gdb-server-prefix -- 2.39.2