diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:11:24 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:11:24 +0000 |
| commit | f2d800a4e8d7ab6bd5a68d6e63afc5402aadeb2f (patch) | |
| tree | 7dcba356a69c4b3d4d3f8b5e6d2441a87c6fb553 /src/vmsfns.c | |
| parent | c426bed2aa26057af91ccda8a3f066bc43a587ad (diff) | |
| download | emacs-f2d800a4e8d7ab6bd5a68d6e63afc5402aadeb2f.tar.gz | |
(translate_id): Use type test macros.
Diffstat (limited to 'src/vmsfns.c')
| -rw-r--r-- | src/vmsfns.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vmsfns.c b/src/vmsfns.c index 6a9c2b2b449..9c9269487f8 100644 --- a/src/vmsfns.c +++ b/src/vmsfns.c @@ -680,8 +680,8 @@ translate_id (pid, owner) int prcnam[2]; if (NILP (pid) - || XTYPE (pid) == Lisp_String && XSTRING (pid)->size == 0 - || XTYPE (pid) == Lisp_Int && XFASTINT (pid) == 0) + || STRINGP (pid) && XSTRING (pid)->size == 0 + || INTEGERP (pid) && XFASTINT (pid) == 0) { code = owner ? JPI$_OWNER : JPI$_PID; status = lib$getjpi (&code, 0, 0, &id); @@ -691,7 +691,7 @@ translate_id (pid, owner) vmserrstr (status)); return (id); } - if (XTYPE (pid) == Lisp_Int) + if (INTEGERP (pid)) return (XFASTINT (pid)); CHECK_STRING (pid, 0); pid = Fupcase (pid); |