Mercurial > emacs
changeset 7937:bf963799d8be
(Fprocess_status): Return nil for process name that has no process.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 17 Jun 1994 13:40:33 +0000 |
| parents | a64f4117dc04 |
| children | c0cc87942423 |
| files | src/process.c |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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);