/[emacs]/emacs/src/charset.c
ViewVC logotype

Diff of /emacs/src/charset.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.118.4.1 by eliz, Wed Feb 6 18:51:07 2002 UTC revision 1.118.4.2 by eliz, Wed Feb 6 19:07:53 2002 UTC
# Line 599  get_charset_id (charset_symbol) Line 599  get_charset_id (charset_symbol)
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

Legend:
Removed from v.1.118.4.1  
changed lines
  Added in v.1.118.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26