From d58c29b345b40b836eeb0d9452a5940beda01fff Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Tue, 12 Mar 2019 10:48:19 +0100 Subject: [PATCH] Revert last tweak in 'comint-output-filter' * lisp/comint.el (comint-output-filter): Revert last tweak because it can hang gdb indefinitely. --- lisp/comint.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.39.2