599 |
Lisp_Object val; |
Lisp_Object val; |
600 |
int charset; |
int charset; |
601 |
|
|
602 |
return ((SYMBOLP (charset_symbol) |
/* This originally used a ?: operator, but reportedly the HP-UX |
603 |
&& (val = Fget (charset_symbol, Qcharset), VECTORP (val)) |
compiler version HP92453-01 A.10.32.22 miscompiles that. */ |
604 |
&& (charset = XINT (XVECTOR (val)->contents[CHARSET_ID_IDX]), |
if (SYMBOLP (charset_symbol) |
605 |
CHARSET_VALID_P (charset))) |
&& VECTORP (val = Fget (charset_symbol, Qcharset)) |
606 |
? charset : -1); |
&& CHARSET_VALID_P (charset = |
607 |
|
XINT (XVECTOR (val)->contents[CHARSET_ID_IDX]))) |
608 |
|
return charset; |
609 |
|
else |
610 |
|
return -1; |
611 |
} |
} |
612 |
|
|
613 |
/* Return an identification number for a new private charset of |
/* Return an identification number for a new private charset of |