Mercurial > emacs
changeset 110926:a98040347deb
(gdb-mouse-toggle-breakpoint-margin)
(gdb-mouse-toggle-breakpoint-fringe): Correct regexp to work when
breakpoint number exceeds nine.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 09 Oct 2010 23:51:42 +1300 |
| parents | e0fba251c544 |
| children | 81696c97193b |
| files | lisp/ChangeLog lisp/progmodes/gdb-ui.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 09 00:09:19 2010 -0400 +++ b/lisp/ChangeLog Sat Oct 09 23:51:42 2010 +1300 @@ -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
--- a/lisp/progmodes/gdb-ui.el Sat Oct 09 00:09:19 2010 -0400 +++ b/lisp/progmodes/gdb-ui.el Sat Oct 09 23:51:42 2010 +1300 @@ -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