From 37a9a675f246adc906c3dd1f95ada9e1ee36dbd6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 12 Jul 1995 19:18:45 +0000 Subject: [PATCH] (comint-kill-output): Preserve entire partial line at end, even if it doesn't match comint-prompt-regexp. --- lisp/comint.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.39.2