master 838ad7037b 2/3: Make kill-process into a command

[Lars Ingebrigtsen]

branch: master
commit 838ad7037be9ce8e07b269426d17198d295fe20e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 doc/lispref/processes.texi | 10 ++++++----
 src/process.c              |  3 ++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/doc/lispref/processes.texi b/doc/lispref/processes.texi
index a38a84e22b..d338d59a81 100644
--- 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 9664180cfd..79e5896a20 100644
--- 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)