diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:07:23 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:07:23 +0000 |
commit | 2c267c8faf94d1887d5ce791b817c5402a16dc97 (patch) | |
tree | 72c89f69dd3d4ae7903693a4227d116d02ec1669 /src/vmsproc.c | |
parent | b61aa007259d1bf178161534945cd7734e034da5 (diff) | |
download | emacs-2c267c8faf94d1887d5ce791b817c5402a16dc97.tar.gz |
(child_setup, Fcall_process): Use type test macros.
Diffstat (limited to 'src/vmsproc.c')
-rw-r--r-- | src/vmsproc.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vmsproc.c b/src/vmsproc.c index e3512ddb3ce..5e347bbaa10 100644 --- a/src/vmsproc.c +++ b/src/vmsproc.c @@ -402,7 +402,7 @@ child_setup (in, out, err, new_argv, env) 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 @@ if you quit, the process is killed.") 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 @@ if you quit, the process is killed.") /* 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 @@ if you quit, the process is killed.") } pid = vs->pid; - if (XTYPE (buffer) == Lisp_Int) + if (INTEGERP (buffer)) { #ifndef subprocesses wait_without_blocking (); @@ -589,7 +589,7 @@ if you quit, the process is killed.") Fcons (make_number (fd[0]), make_number (pid))); - if (XTYPE (buffer) == Lisp_Buffer) + if (BUFFERP (buffer)) Fset_buffer (buffer); immediate_quit = 1; |