# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 768549537 0
# Node ID 5c2347e34b31be5b73d96536d53c9977f1ea3b34
# Parent  e14086d8ba6f25e671d92664f8bf230ff0de47e9
Allow marker string to arrive in mid-line.

diff -r e14086d8ba6f -r 5c2347e34b31 lisp/gud.el
--- a/lisp/gud.el	Tue May 10 05:48:20 1994 +0000
+++ b/lisp/gud.el	Tue May 10 05:58:57 1994 +0000
@@ -174,7 +174,7 @@
     (let ((output ""))
 
       ;; Process all the complete markers in this chunk.
-      (while (string-match "^\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
+      (while (string-match "\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
 			   gud-marker-acc)
 	(setq
 
@@ -198,7 +198,7 @@
       ;; gud-marker-acc until we receive the rest of it.  Since we
       ;; know the full marker regexp above failed, it's pretty simple to
       ;; test for marker starts.
-      (if (string-match "^\032.*\\'" gud-marker-acc)
+      (if (string-match "\032.*\\'" gud-marker-acc)
 	  (progn
 	    ;; Everything before the potential marker start can be output.
 	    (setq output (concat output (substring gud-marker-acc
@@ -474,7 +474,7 @@
       (while (string-match
 	      ;; This is like th gdb marker but with an optional
 	      ;; leading break point number like `[1] '
-	      "^[][ 0-9]*\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
+	      "[][ 0-9]*\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
 	      gud-marker-acc)
 	(setq
 
@@ -498,7 +498,7 @@
       ;; gud-marker-acc until we receive the rest of it.  Since we
       ;; know the full marker regexp above failed, it's pretty simple to
       ;; test for marker starts.
-      (if (string-match "^[][ 0-9]*\032.*\\'" gud-marker-acc)
+      (if (string-match "[][ 0-9]*\032.*\\'" gud-marker-acc)
 	  (progn
 	    ;; Everything before the potential marker start can be output.
 	    (setq output (concat output (substring gud-marker-acc
@@ -779,7 +779,7 @@
     (let ((output ""))
 
       ;; Process all the complete markers in this chunk.
-      (while (string-match "^\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
+      (while (string-match "\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
 			   gud-marker-acc)
 	(setq
 
@@ -803,7 +803,7 @@
       ;; gud-marker-acc until we receive the rest of it.  Since we
       ;; know the full marker regexp above failed, it's pretty simple to
       ;; test for marker starts.
-      (if (string-match "^\032.*\\'" gud-marker-acc)
+      (if (string-match "\032.*\\'" gud-marker-acc)
 	  (progn
 	    ;; Everything before the potential marker start can be output.
 	    (setq output (concat output (substring gud-marker-acc