diff src/process.c @ 7937:bf963799d8be

(Fprocess_status): Return nil for process name that has no process.

--- 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);