# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 887430758 0
# Node ID 962d8c41cfa21ece3748720339950c9cbb068a19
# Parent  41ad3e101628ae9e92441b9fb495972a1ac256e0
(comint-interrupt-subjob): Call comint-kill-input.
(comint-kill-subjob, comint-quit-subjob, comint-stop-subjob): Likewise.

diff -r 41ad3e101628 -r 962d8c41cfa2 lisp/comint.el
--- a/lisp/comint.el	Sat Feb 14 02:40:07 1998 +0000
+++ b/lisp/comint.el	Sat Feb 14 04:32:38 1998 +0000
@@ -1578,27 +1578,40 @@
     (comint-skip-prompt)))
 
 (defun comint-interrupt-subjob ()
-  "Interrupt the current subjob."
+  "Interrupt the current subjob.
+This command also kills the pending input
+between the process-mark and point."
   (interactive)
+  (comint-kill-input)
   (interrupt-process nil comint-ptyp))
 
 (defun comint-kill-subjob ()
-  "Send kill signal to the current subjob."
+  "Send kill signal to the current subjob.
+This command also kills the pending input
+between the process-mark and point."
   (interactive)
+  (comint-kill-input)
   (kill-process nil comint-ptyp))
 
 (defun comint-quit-subjob ()
-  "Send quit signal to the current subjob."
+  "Send quit signal to the current subjob.
+This command also kills the pending input
+between the process-mark and point."
   (interactive)
+  (comint-kill-input)
   (quit-process nil comint-ptyp))
 
 (defun comint-stop-subjob ()
   "Stop the current subjob.
+This command also kills the pending input
+between the process-mark and point.
+
 WARNING: if there is no current subjob, you can end up suspending
 the top-level process running in the buffer. If you accidentally do
 this, use \\[comint-continue-subjob] to resume the process. (This
 is not a problem with most shells, since they ignore this signal.)"
   (interactive)
+  (comint-kill-input)
   (stop-process nil comint-ptyp))
 
 (defun comint-continue-subjob ()