Mercurial > emacs
changeset 12743:d9dc148cd8ac
(gud-xdb-marker-filter): Change pattern to accept spc at end.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 02 Aug 1995 04:43:48 +0000 |
| parents | fc5662a15b3d |
| children | 0c5625e91a11 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Tue Aug 01 23:53:30 1995 +0000 +++ b/lisp/gud.el Wed Aug 02 04:43:48 1995 +0000 @@ -808,10 +808,11 @@ gud-marker-acc "") (setq gud-marker-acc (concat gud-marker-acc string))) (if result - (if (or (string-match "\\([^\n \t:]+\\): [^:]+: \\([0-9]+\\):" result) + (if (or (string-match "\\([^\n \t:]+\\): [^:]+: \\([0-9]+\\)[: ]" + result) (string-match "[^: \t]+:[ \t]+\\([^:]+\\): [^:]+: \\([0-9]+\\):" result)) - (let ((line (string-to-int + (let ((line (string-to-int (substring result (match-beginning 2) (match-end 2)))) (file (gud-xdb-file-name (substring result (match-beginning 1) (match-end 1)))))