(gdb-mouse-toggle-breakpoint-margin)

(gdb-mouse-toggle-breakpoint-fringe): Correct regexp to work when
breakpoint number exceeds nine.

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  <richard_sharman@mitel.com>  (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  <koppel@ece.lsu.edu>
 
         * 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