From 1dc9668c16626f8431cfb62c2200424427e44bd5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 2 Aug 1995 04:43:48 +0000 Subject: [PATCH] (gud-xdb-marker-filter): Change pattern to accept spc at end. --- lisp/gud.el | 5 +++-- 1 file 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))))) -- 2.39.2