diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-05-10 05:58:57 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-05-10 05:58:57 +0000 |
| commit | 76214250faa6c0a00f1f6afe64c4516babf87071 (patch) | |
| tree | 883a66589ecb4b65721e241df693bd75c10a8bb6 /lisp/gud.el | |
| parent | 1c9784c9c2a9a7ac1b1746791b6fd9b72511c58e (diff) | |
| download | emacs-76214250faa6c0a00f1f6afe64c4516babf87071.tar.gz | |
Allow marker string to arrive in mid-line.
Diffstat (limited to 'lisp/gud.el')
| -rw-r--r-- | lisp/gud.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index 5299774b41f..594f88a4f2c 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -174,7 +174,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" + (while (string-match "\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n" gud-marker-acc) (setq @@ -198,7 +198,7 @@ we're in the GUD buffer)." ;; 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 @@ and source-file directory for your debugger." (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 @@ and source-file directory for your debugger." ;; 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 @@ directories if your program contains sources from more than one directory." (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 @@ directories if your program contains sources from more than one directory." ;; 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 |