mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source 
end, even if it doesn't match comint-prompt-regexp.
This commit is contained in:
Karl Heuer 1995-07-12 19:18:45 +00:00
parent 97b0c6345b
commit 37a9a675f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/comint.el
View File

@ -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))))