diff options
| -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 |