Mercurial > emacs
changeset 53850:d19a78b5f1e5
(gud-jdb-marker-filter): Add period as optional thousands separator; fixes
<class>:<line-number> regexp for non-english locales.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 08 Feb 2004 15:30:42 +0000 |
| parents | bed59f02c306 |
| children | 823980f7d612 |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Sun Feb 08 15:29:09 2004 +0000 +++ b/lisp/progmodes/gud.el Sun Feb 08 15:30:42 2004 +0000 @@ -1967,14 +1967,14 @@ ;; FIXME: Java ID's are UNICODE strings, this matches ASCII ;; ID's only. ;; - ;; The "," in the last square-bracket is necessary because of - ;; Sun's total disrespect for backwards compatibility in + ;; The ".," in the last square-bracket are necessary because + ;; of Sun's total disrespect for backwards compatibility in ;; reported line numbers from jdb - starting in 1.4.0 they - ;; introduced a comma at the thousands position (how - ;; ingenious!) + ;; print line numbers using LOCALE, inserting a comma or a + ;; period at the thousands positions (how ingenious!). "\\(\[[0-9]+\] \\)*\\([a-zA-Z0-9.$_]+\\)\\.[a-zA-Z0-9$_<>(),]+ \ -\\(([a-zA-Z0-9.$_]+:\\|line=\\)\\([0-9,]+\\)" +\\(([a-zA-Z0-9.$_]+:\\|line=\\)\\([0-9.,]+\\)" gud-marker-acc) ;; A good marker is one that: @@ -2001,7 +2001,7 @@ (string-to-int (let ((numstr (match-string 4 gud-marker-acc))) - (if (string-match "," numstr) + (if (string-match "[.,]" numstr) (replace-match "" nil nil numstr) numstr))))) (message "Could not find source file.")))