Revert last tweak in 'comint-output-filter'

* lisp/comint.el (comint-output-filter): Revert last tweak because
it can hang gdb indefinitely.
This commit is contained in:
Martin Rudalics 2019-03-12 10:48:19 +01:00
parent 1d65985a2b
commit d58c29b345

View file

@ -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)))