(comint-truncate-buffer)))
(defun comint-interrupt-subjob ()
- "Interrupt the current subjob.
-This command also kills the pending input
-between the process mark and point."
+ "Interrupt the current subjob."
(interactive)
(comint-skip-input)
(interrupt-process nil comint-ptyp)
)
(defun comint-kill-subjob ()
- "Send kill signal to the current subjob.
-This command also kills the pending input
-between the process mark and point."
+ "Send kill signal to the current subjob."
(interactive)
(comint-skip-input)
(kill-process nil comint-ptyp))
(defun comint-quit-subjob ()
- "Send quit signal to the current subjob.
-This command also kills the pending input
-between the process mark and point."
+ "Send quit signal to the current subjob."
(interactive)
(comint-skip-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