Make kill-process into a command

* doc/lispref/processes.texi (Signals to Processes): Document it.
* src/process.c (Fkill_process): Make into a command (bug#32640).

diff --git a/doc/lispref/processes.texi b/doc/lispref/processes.texi
index a38a84e22b31329d7d66b2149ebd5ab58bc11535..d338d59a814aa5904d9b1f5e7fabfbc3822ec322 100644 (file)
--- a/doc/lispref/processes.texi
+++ b/doc/lispref/processes.texi
@@ -1422,11 +1422,13 @@ non-@code{nil}, you can think of this function as typing @kbd{C-c}
 on the terminal by which Emacs talks to the subprocess.
 @end defun
 
-@defun kill-process &optional process current-group
-This function kills the process @var{process} by sending the
+@deffn Command kill-process &optional process current-group
+This command kills the process @var{process} by sending the
 signal @code{SIGKILL}.  This signal kills the subprocess immediately,
-and cannot be handled by the subprocess.
-@end defun
+and cannot be handled by the subprocess.  Interactively, it'll prompt
+the user for a process name, defaulting to the process (if any) in the
+current buffer.
+@end deffn
 
 @defun quit-process &optional process current-group
 This function sends the signal @code{SIGQUIT} to the process

diff --git a/src/process.c b/src/process.c
index 9664180cfd45d921b9c304224963110fd185df40..79e5896a20a4e3ecc4c1f95788e2beb4a8329d07 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -6934,7 +6934,8 @@ the order of the list, until one of them returns non-nil.  */)
                process, current_group);
 }
 
-DEFUN ("kill-process", Fkill_process, Skill_process, 0, 2, 0,
+DEFUN ("kill-process", Fkill_process, Skill_process, 0, 2,
+       "(list (read-process-name \"Kill process\"))",
        doc: /* Kill process PROCESS.  May be process or name of one.
 See function `interrupt-process' for more details on usage.  */)
   (Lisp_Object process, Lisp_Object current_group)