Revert last tweak in 'comint-output-filter'

* lisp/comint.el (comint-output-filter): Revert last tweak because
it can hang gdb indefinitely.

diff --git a/lisp/comint.el b/lisp/comint.el
index e5012be982be235ec849d67ada43133534837b91..a5fca7ea2a16074cd117167f813c151f9387ed9b 100644 (file)
--- 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)))