Mercurial > hg > xemacs-beta

comparison src/mule-charset.h @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 54cc21c15cbb
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
503 #define CHARSET_DOC_STRING(cs) ((cs)->doc_string) 503 #define CHARSET_DOC_STRING(cs) ((cs)->doc_string)
504 #define CHARSET_REGISTRY(cs) ((cs)->registry) 504 #define CHARSET_REGISTRY(cs) ((cs)->registry)
505 #define CHARSET_CCL_PROGRAM(cs) ((cs)->ccl_program) 505 #define CHARSET_CCL_PROGRAM(cs) ((cs)->ccl_program)
506 #define CHARSET_REVERSE_DIRECTION_CHARSET(cs) ((cs)->reverse_direction_charset) 506 #define CHARSET_REVERSE_DIRECTION_CHARSET(cs) ((cs)->reverse_direction_charset)
507 507
508 INLINE int 508 /* Optimized using inside knowledge of CHARSET_TYPE values */
509 CHARSET_DIMENSION (struct Lisp_Charset *cs) 509 #define CHARSET_DIMENSION(cs) ((CHARSET_TYPE (cs) <= CHARSET_TYPE_96) ? 1 : 2)
510 { 510 #define CHARSET_CHARS(cs) ((CHARSET_TYPE (cs) & 0x1) ? 96 : 94)
511 /* Optimized using inside knowledge of CHARSET_TYPE values */
512 return (CHARSET_TYPE (cs) <= CHARSET_TYPE_96) ? 1 : 2;
513 }
514
515 INLINE int
516 CHARSET_CHARS (struct Lisp_Charset *cs)
517 {
518 /* Optimized using inside knowledge of CHARSET_TYPE values */
519 return (CHARSET_TYPE (cs) & 0x1) ? 96 : 94;
520 }
521 511
522 #define CHARSET_PRIVATE_P(cs) LEADING_BYTE_PRIVATE_P (CHARSET_LEADING_BYTE (cs)) 512 #define CHARSET_PRIVATE_P(cs) LEADING_BYTE_PRIVATE_P (CHARSET_LEADING_BYTE (cs))
523 513
524 #define XCHARSET_NAME(cs) CHARSET_NAME (XCHARSET (cs)) 514 #define XCHARSET_NAME(cs) CHARSET_NAME (XCHARSET (cs))
525 #define XCHARSET_REP_BYTES(cs) CHARSET_REP_BYTES (XCHARSET (cs)) 515 #define XCHARSET_REP_BYTES(cs) CHARSET_REP_BYTES (XCHARSET (cs))