From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 2 Aug 1995 04:43:48 +0000 (+0000)
Subject: (gud-xdb-marker-filter): Change pattern to accept spc at end.
X-Git-Tag: emacs-19.34~3117
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1dc9668c16626f8431cfb62c2200424427e44bd5;p=emacs.git

(gud-xdb-marker-filter): Change pattern to accept spc at end.
---

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)))))