mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 16:21:07 -08:00
Code Issues Projects Releases Wiki Activity

(translate_id): Use type test macros.

Browse source
This commit is contained in:
Karl Heuer 1994-09-27 01:11:24 +00:00
parent c426bed2aa
commit f2d800a4e8
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/vmsfns.c
View file

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