Commit 1a94abea authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(comint-interrupt-subjob): Call comint-kill-input.

(comint-kill-subjob, comint-quit-subjob, comint-stop-subjob): Likewise.
parent 6b10a521
...@@ -1578,27 +1578,40 @@ Sets mark to the value of point when this command is run." ...@@ -1578,27 +1578,40 @@ Sets mark to the value of point when this command is run."
(comint-skip-prompt))) (comint-skip-prompt)))
(defun comint-interrupt-subjob () (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) (interactive)
(comint-kill-input)
(interrupt-process nil comint-ptyp)) (interrupt-process nil comint-ptyp))
(defun comint-kill-subjob () (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) (interactive)
(comint-kill-input)
(kill-process nil comint-ptyp)) (kill-process nil comint-ptyp))
(defun comint-quit-subjob () (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) (interactive)
(comint-kill-input)
(quit-process nil comint-ptyp)) (quit-process nil comint-ptyp))
(defun comint-stop-subjob () (defun comint-stop-subjob ()
"Stop the current 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 WARNING: if there is no current subjob, you can end up suspending
the top-level process running in the buffer. If you accidentally do the top-level process running in the buffer. If you accidentally do
this, use \\[comint-continue-subjob] to resume the process. (This this, use \\[comint-continue-subjob] to resume the process. (This
is not a problem with most shells, since they ignore this signal.)" is not a problem with most shells, since they ignore this signal.)"
(interactive) (interactive)
(comint-kill-input)
(stop-process nil comint-ptyp)) (stop-process nil comint-ptyp))
(defun comint-continue-subjob () (defun comint-continue-subjob ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment