(gdb-mouse-toggle-breakpoint-margin)

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59f5b55ec2a76b02f195e695074c6ea34d13c492..5800459f20ad58ba105226886d438ef24445c69f 100644 (file)
--- 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 aa4cfab1badbd26cc818e3f651cae51e2015412e..b2a354c5410c5037bd0af1b54db6aaa11801015a 100644 (file)
--- 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