Mercurial > emacs
changeset 9106:40a353de483c
(child_setup, Fcall_process): Use type test macros.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 27 Sep 1994 01:07:23 +0000 |
| parents | 984a4b1be1d1 |
| children | 46461644055b |
| files | src/vmsproc.c |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/vmsproc.c Tue Sep 27 00:51:55 1994 +0000 +++ b/src/vmsproc.c Tue Sep 27 01:07:23 1994 +0000 @@ -402,7 +402,7 @@ close_process_descs (); #endif - if (XTYPE (current_buffer->directory) == Lisp_String) + if (STRINGP (current_buffer->directory)) chdir (XSTRING (current_buffer->directory)->data); } @@ -506,7 +506,7 @@ status = get_pty_channel (inDevName, outDevName, &inchannel, &outchannel); if (!(status & 1)) error ("Error getting PTY channel: %x", status); - if (XTYPE (buffer) == Lisp_Int) + if (INTEGERP (buffer)) { dout.l = strlen ("NLA0:"); dout.a = "NLA0:"; @@ -545,7 +545,7 @@ /* Start a read on the process channel */ - if (XTYPE (buffer) != Lisp_Int) + if (!INTEGERP (buffer)) { start_vms_process_read (vs); SpawnFlags = CLI$M_NOWAIT; @@ -574,7 +574,7 @@ } pid = vs->pid; - if (XTYPE (buffer) == Lisp_Int) + if (INTEGERP (buffer)) { #ifndef subprocesses wait_without_blocking (); @@ -589,7 +589,7 @@ Fcons (make_number (fd[0]), make_number (pid))); - if (XTYPE (buffer) == Lisp_Buffer) + if (BUFFERP (buffer)) Fset_buffer (buffer); immediate_quit = 1;