# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743492836 0
# Node ID f8b1ea675224ceaf9e103034051d85cfc6d54db7
# Parent  aaf846efe4cb221e844e2a973eba6f646d18614a
(Fprocess_status): Use Fget_process, to avoid error
if unknown process name.

diff -r aaf846efe4cb -r f8b1ea675224 src/process.c
--- a/src/process.c	Sat Jul 24 05:33:38 1993 +0000
+++ b/src/process.c	Sat Jul 24 05:47:16 1993 +0000
@@ -631,14 +631,12 @@
 nil -- if arg is a process name and no such process exists.\n\
 PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
 nil, indicating the current buffer's process.")
-/* command -- for a command channel opened to Emacs by another process.\n\
-   external -- for an i/o channel opened to Emacs by another process.\n\  */
   (proc)
      register Lisp_Object proc;
 {
   register struct Lisp_Process *p;
   register Lisp_Object status;
-  proc = get_process (proc);
+  proc = Fget_process (proc);
   if (NILP (proc))
     return proc;
   p = XPROCESS (proc);