diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2019-03-12 10:48:19 +0100 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2019-03-12 10:48:19 +0100 |
| commit | d58c29b345b40b836eeb0d9452a5940beda01fff (patch) | |
| tree | 45fd7e334ebd2353b7acba9d7b62c949805280b6 /lisp/comint.el | |
| parent | 1d65985a2b758ba41fe4a7965a282861d7b23d0a (diff) | |
| download | emacs-d58c29b345b40b836eeb0d9452a5940beda01fff.tar.gz | |
Revert last tweak in 'comint-output-filter'
* lisp/comint.el (comint-output-filter): Revert last tweak because
it can hang gdb indefinitely.
Diffstat (limited to 'lisp/comint.el')
| -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." (prompt-re (concat "\\`" (regexp-quote prompt)))) (while (string-match prompt-re string) (setq string (substring string (match-end 0))))))) - (while (string-match (concat "\\(" comint-prompt-regexp + (while (string-match (concat "\\(^" comint-prompt-regexp "\\)\\1+") string) (setq string (replace-match "\\1" nil nil string))) |