From 1a94abeac239a4c06c82441e4a61446ea8f56fb9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 14 Feb 1998 04:32:38 +0000 Subject: [PATCH] (comint-interrupt-subjob): Call comint-kill-input. (comint-kill-subjob, comint-quit-subjob, comint-stop-subjob): Likewise. --- lisp/comint.el | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 8b18dedd30c..b915ebdde1d 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1578,27 +1578,40 @@ Sets mark to the value of point when this command is run." (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 () -- 2.39.5