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

1 files changed, 7 insertions, 1 deletions

diff --git a/src/process.c b/src/process.c
index e2f7f6a9794..66e21c1dc2e 100644
--- a/src/process.c
+++ b/src/process.c
@@ -626,9 +626,15 @@ nil, indicating the current buffer's process.")
 {
   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);