# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 805576725 0
# Node ID dd3560e3254c1b50e330cb36161b5b2b491e1996
# Parent  b832e70e32585bf7f6b37a417dc902f834c764a8
(comint-kill-output): Preserve entire partial line at
end, even if it doesn't match comint-prompt-regexp.

diff -r b832e70e3258 -r dd3560e3254c lisp/comint.el
--- a/lisp/comint.el	Wed Jul 12 17:22:07 1995 +0000
+++ b/lisp/comint.el	Wed Jul 12 19:18:45 1995 +0000
@@ -1473,7 +1473,7 @@
 			  (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))))