Mercurial > emacs
changeset 9138:6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 27 Sep 1994 03:10:43 +0000 |
| parents | 412e94c1dbf2 |
| children | 127823d9444d |
| files | src/callproc.c |
| diffstat | 1 files changed, 7 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callproc.c Tue Sep 27 03:10:02 1994 +0000 +++ b/src/callproc.c Tue Sep 27 03:10:43 1994 +0000 @@ -200,7 +200,7 @@ #ifndef subprocesses /* Without asynchronous processes we cannot have BUFFER == 0. */ - if (nargs >= 3 && XTYPE (args[2]) == Lisp_Int) + if (nargs >= 3 && INTEGERP (args[2])) error ("Operating system cannot handle asynchronous subprocesses"); #endif /* subprocesses */ @@ -314,7 +314,7 @@ } #endif - if (XTYPE (buffer) == Lisp_Int) + if (INTEGERP (buffer)) fd[1] = open (NULL_DEVICE, O_WRONLY), fd[0] = -1; else { @@ -391,7 +391,7 @@ report_file_error ("Doing vfork", Qnil); } - if (XTYPE (buffer) == Lisp_Int) + if (INTEGERP (buffer)) { if (fd[0] >= 0) close (fd[0]); @@ -417,7 +417,7 @@ #endif /* not MSDOS */ - if (XTYPE (buffer) == Lisp_Buffer) + if (BUFFERP (buffer)) Fset_buffer (buffer); immediate_quit = 1; @@ -642,8 +642,7 @@ new_length = 0; for (tem = Vprocess_environment; - (XTYPE (tem) == Lisp_Cons - && XTYPE (XCONS (tem)->car) == Lisp_String); + CONSP (tem) && STRINGP (XCONS (tem)->car); tem = XCONS (tem)->cdr) new_length++; @@ -657,8 +656,7 @@ /* Copy the Vprocess_environment strings into new_env. */ for (tem = Vprocess_environment; - (XTYPE (tem) == Lisp_Cons - && XTYPE (XCONS (tem)->car) == Lisp_String); + CONSP (tem) && STRINGP (XCONS (tem)->car); tem = XCONS (tem)->cdr) { char **ep = env; @@ -781,7 +779,7 @@ Lisp_Object entry; entry = XCONS (scan)->car; - if (XTYPE (entry) == Lisp_String + if (STRINGP (entry) && XSTRING (entry)->size > varlen && XSTRING (entry)->data[varlen] == '=' && ! bcmp (XSTRING (entry)->data, var, varlen))