diff options
| author | Martin Rudalics | 2019-03-12 10:48:19 +0100 |
|---|---|---|
| committer | Martin Rudalics | 2019-03-12 10:48:19 +0100 |
| commit | d58c29b345b40b836eeb0d9452a5940beda01fff (patch) | |
| tree | 45fd7e334ebd2353b7acba9d7b62c949805280b6 | |
| parent | 1d65985a2b758ba41fe4a7965a282861d7b23d0a (diff) | |
| download | emacs-d58c29b345b40b836eeb0d9452a5940beda01fff.tar.gz emacs-d58c29b345b40b836eeb0d9452a5940beda01fff.zip | |
Revert last tweak in 'comint-output-filter'
* lisp/comint.el (comint-output-filter): Revert last tweak because
it can hang gdb indefinitely.
| -rw-r--r-- | lisp/comint.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index e5012be982b..a5fca7ea2a1 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -2081,7 +2081,7 @@ Make backspaces delete the previous character." | |||
| 2081 | (prompt-re (concat "\\`" (regexp-quote prompt)))) | 2081 | (prompt-re (concat "\\`" (regexp-quote prompt)))) |
| 2082 | (while (string-match prompt-re string) | 2082 | (while (string-match prompt-re string) |
| 2083 | (setq string (substring string (match-end 0))))))) | 2083 | (setq string (substring string (match-end 0))))))) |
| 2084 | (while (string-match (concat "\\(" comint-prompt-regexp | 2084 | (while (string-match (concat "\\(^" comint-prompt-regexp |
| 2085 | "\\)\\1+") | 2085 | "\\)\\1+") |
| 2086 | string) | 2086 | string) |
| 2087 | (setq string (replace-match "\\1" nil nil string))) | 2087 | (setq string (replace-match "\\1" nil nil string))) |