[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100098: (gdb-mouse-toggle-breakpoint-margin)

[Nick Roberts]

------------------------------------------------------------
revno: 100098
committer: Nick Roberts <address@hidden>
branch nick: emacs-23
timestamp: Sat 2010-10-09 23:51:42 +1300
message:
  (gdb-mouse-toggle-breakpoint-margin)
  (gdb-mouse-toggle-breakpoint-fringe): Correct regexp to work when
  breakpoint number exceeds nine.
modified:
  lisp/ChangeLog
  lisp/progmodes/gdb-ui.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-09 04:09:19 +0000
+++ b/lisp/ChangeLog    2010-10-09 10:51:42 +0000
@@ -1,3 +1,9 @@
+2010-10-09  Richard Sharman  <address@hidden>  (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  <address@hidden>
 
        * hi-lock.el (hi-lock-font-lock-hook): Check font-lock-fontified

=== modified file 'lisp/progmodes/gdb-ui.el'
--- a/lisp/progmodes/gdb-ui.el  2010-03-26 08:56:09 +0000
+++ b/lisp/progmodes/gdb-ui.el  2010-10-09 10:51:42 +0000
@@ -2195,7 +2195,7 @@
            (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 @@
              (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