From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 17 Jun 1994 13:40:33 +0000 (+0000)
Subject: (Fprocess_status): Return nil for process name that has no process.
X-Git-Tag: emacs-19.34~7916
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=343f4114c3611dfc858b856876892d5270780c31;p=emacs.git

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

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