Mercurial > emacs
changeset 12519:dd3560e3254c
(comint-kill-output): Preserve entire partial line at
end, even if it doesn't match comint-prompt-regexp.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 12 Jul 1995 19:18:45 +0000 |
| parents | b832e70e3258 |
| children | ad24dd8cec5c |
| files | lisp/comint.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))))