From 343f4114c3611dfc858b856876892d5270780c31 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 17 Jun 1994 13:40:33 +0000 Subject: [PATCH] (Fprocess_status): Return nil for process name that has no process. --- src/process.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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); -- 2.39.5