# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771860433 0
# Node ID bf963799d8beb0ed366b44d0c9bc43d8efac41b9
# Parent  a64f4117dc042c28f6c8048fab6fe5fb79a4bbc9
(Fprocess_status): Return nil for process name that has no process.

diff -r a64f4117dc04 -r bf963799d8be src/process.c
--- a/src/process.c	Fri Jun 17 13:39:14 1994 +0000
+++ b/src/process.c	Fri Jun 17 13:40:33 1994 +0000
@@ -626,9 +626,15 @@
 {
   register struct Lisp_Process *p;
   register Lisp_Object status;
-  proc = get_process (proc);
+
+  if (STRINGP (proc))
+    proc = Fget_process (proc);
+  else
+    proc = get_process (proc);
+
   if (NILP (proc))
     return proc;
+
   p = XPROCESS (proc);
   if (!NILP (p->raw_status_low))
     update_status (p);