(comint-kill-output): Preserve entire partial line at

end, even if it doesn't match comint-prompt-regexp.

diff --git a/lisp/comint.el b/lisp/comint.el
index 2083b18e32685e92d9a23b082dc92de274ac7e97..53518198dea6606009ecb854e671132744fea998 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1473,7 +1473,7 @@ Does not delete the prompt."
                          (beginning-of-line nil)
                          (point-marker))))
        (delete-region comint-last-input-end pmark)
-       (comint-skip-prompt)
+       (goto-char (process-mark proc))
        (setq replacement (concat "*** output flushed ***\n"
                                  (buffer-substring pmark (point))))
        (delete-region pmark (point))))