diff options
| author | Karl Heuer | 1994-09-27 01:11:24 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-09-27 01:11:24 +0000 |
| commit | f2d800a4e8d7ab6bd5a68d6e63afc5402aadeb2f (patch) | |
| tree | 7dcba356a69c4b3d4d3f8b5e6d2441a87c6fb553 /src/vmsfns.c | |
| parent | c426bed2aa26057af91ccda8a3f066bc43a587ad (diff) | |
| download | emacs-f2d800a4e8d7ab6bd5a68d6e63afc5402aadeb2f.tar.gz emacs-f2d800a4e8d7ab6bd5a68d6e63afc5402aadeb2f.zip | |
(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) | |||
| 680 | int prcnam[2]; | 680 | int prcnam[2]; |
| 681 | 681 | ||
| 682 | if (NILP (pid) | 682 | if (NILP (pid) |
| 683 | || XTYPE (pid) == Lisp_String && XSTRING (pid)->size == 0 | 683 | || STRINGP (pid) && XSTRING (pid)->size == 0 |
| 684 | || XTYPE (pid) == Lisp_Int && XFASTINT (pid) == 0) | 684 | || INTEGERP (pid) && XFASTINT (pid) == 0) |
| 685 | { | 685 | { |
| 686 | code = owner ? JPI$_OWNER : JPI$_PID; | 686 | code = owner ? JPI$_OWNER : JPI$_PID; |
| 687 | status = lib$getjpi (&code, 0, 0, &id); | 687 | status = lib$getjpi (&code, 0, 0, &id); |
| @@ -691,7 +691,7 @@ translate_id (pid, owner) | |||
| 691 | vmserrstr (status)); | 691 | vmserrstr (status)); |
| 692 | return (id); | 692 | return (id); |
| 693 | } | 693 | } |
| 694 | if (XTYPE (pid) == Lisp_Int) | 694 | if (INTEGERP (pid)) |
| 695 | return (XFASTINT (pid)); | 695 | return (XFASTINT (pid)); |
| 696 | CHECK_STRING (pid, 0); | 696 | CHECK_STRING (pid, 0); |
| 697 | pid = Fupcase (pid); | 697 | pid = Fupcase (pid); |