diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-02 04:43:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-02 04:43:48 +0000 |
| commit | 1dc9668c16626f8431cfb62c2200424427e44bd5 (patch) | |
| tree | 44834d93723ca0243b393382a11ea49d31e75c9a /lisp/gud.el | |
| parent | 721565973f592519b95b4732c39237bee3178a3a (diff) | |
| download | emacs-1dc9668c16626f8431cfb62c2200424427e44bd5.tar.gz | |
(gud-xdb-marker-filter): Change pattern to accept spc at end.
Diffstat (limited to 'lisp/gud.el')
| -rw-r--r-- | lisp/gud.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index cf092dc5efb..87917045838 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -808,10 +808,11 @@ containing the executable being debugged.") 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))))) |