Commit 343f4114 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 2dd60dfd
...@@ -626,9 +626,15 @@ nil, indicating the current buffer's process.") ...@@ -626,9 +626,15 @@ nil, indicating the current buffer's process.")
{ {
register struct Lisp_Process *p; register struct Lisp_Process *p;
register Lisp_Object status; register Lisp_Object status;
proc = get_process (proc);
if (STRINGP (proc))
proc = Fget_process (proc);
else
proc = get_process (proc);
if (NILP (proc)) if (NILP (proc))
return proc; return proc;
p = XPROCESS (proc); p = XPROCESS (proc);
if (!NILP (p->raw_status_low)) if (!NILP (p->raw_status_low))
update_status (p); update_status (p);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment