From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 01:11:24 +0000 (+0000)
Subject: (translate_id): Use type test macros.
X-Git-Tag: emacs-19.34~6747
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f2d800a4e8d7ab6bd5a68d6e63afc5402aadeb2f;p=emacs.git

(translate_id): Use type test macros.
---

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);