From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 12 Jul 1995 19:18:45 +0000 (+0000)
Subject: (comint-kill-output): Preserve entire partial line at
X-Git-Tag: emacs-19.34~3340
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37a9a675f246adc906c3dd1f95ada9e1ee36dbd6;p=emacs.git

(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 2083b18e326..53518198dea 100644
--- 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))))