From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 27 May 1995 00:36:36 +0000 (+0000)
Subject: (gud-gdb-marker-regexp): New var.  Use path-separator.
X-Git-Tag: emacs-19.34~3898
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfb7d19560644a039e2f4d302782977f5e6c6b89;p=emacs.git

(gud-gdb-marker-regexp): New var.  Use path-separator.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index 75f56b90d45..a12c84c5fda 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -170,6 +170,10 @@ we're in the GUD buffer)."
 (defun gud-gdb-massage-args (file args)
   (cons "-fullname" args))
 
+(defvar gud-gdb-marker-regexp
+  (concat "\032\032\\([^" path-separator "\n]*\\)" path-separator
+	  "\\([0-9]*\\)" path-separator ".*\n"))
+
 ;; There's no guarantee that Emacs will hand the filter the entire
 ;; marker at once; it could be broken up across several strings.  We
 ;; might even receive a big chunk with several markers in it.  If we
@@ -184,8 +188,7 @@ we're in the GUD buffer)."
   (let ((output ""))
 
     ;; Process all the complete markers in this chunk.
-    (while (string-match "\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
-			 gud-marker-acc)
+    (while (string-match gud-gdb-marker-regexp gud-marker-acc)
       (setq
 
        ;; Extract the frame position from the marker.