/* Header for charset handler.
Copyright (C) 2001, 2002, 2003, 2004, 2005,
- 2006 Free Software Foundation, Inc.
- Copyright (C) 1995, 1997, 1998, 2003
+ 2006, 2007, 2008 Free Software Foundation, Inc.
+ Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+ 2005, 2006, 2007, 2008
National Institute of Advanced Industrial Science and Technology (AIST)
Registration Number H14PRO021
+
Copyright (C) 2003
National Institute of Advanced Industrial Science and Technology (AIST)
Registration Number H13PRO009
GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2, or (at your option)
+the Free Software Foundation; either version 3, or (at your option)
any later version.
GNU Emacs is distributed in the hope that it will be useful,
version. Otherwise, -1. */
int emacs_mule_id;
- /* Nonzero iff the charset is compatible with ASCII. */
+ /* Nonzero if the charset is compatible with ASCII. */
int ascii_compatible_p;
- /* Nonzero iff the charset is supplementary. */
+ /* Nonzero if the charset is supplementary. */
int supplementary_p;
- /* Nonzero iff all the code points are representable by Lisp_Int. */
+ /* Nonzero if all the code points are representable by Lisp_Int. */
int compact_codes_p;
/* The method for encoding/decoding characters of the charset. */
(CHARSET_ATTR_DEUNIFIER (CHARSET_ATTRIBUTES (charset)))
-/* Nonzero iff OBJ is a valid charset symbol. */
+/* Nonzero if OBJ is a valid charset symbol. */
#define CHARSETP(obj) (CHARSET_SYMBOL_HASH_INDEX (obj) >= 0)
/* Check if X is a valid charset symbol. If not, signal an error. */
#define CHECK_CHARSET(x) \
do { \
if (! SYMBOLP (x) || CHARSET_SYMBOL_HASH_INDEX (x) < 0) \
- x = wrong_type_argument (Qcharsetp, (x)); \
+ wrong_type_argument (Qcharsetp, (x)); \
} while (0)
int idx; \
\
if (! SYMBOLP (x) || (idx = CHARSET_SYMBOL_HASH_INDEX (x)) < 0) \
- x = wrong_type_argument (Qcharsetp, (x)); \
+ wrong_type_argument (Qcharsetp, (x)); \
id = XINT (AREF (HASH_VALUE (XHASH_TABLE (Vcharset_hash_table), idx), \
charset_id)); \
} while (0)
#define CHECK_CHARSET_GET_ATTR(x, attr) \
do { \
if (!SYMBOLP (x) || NILP (attr = CHARSET_SYMBOL_ATTRIBUTES (x))) \
- x = wrong_type_argument (Qcharsetp, (x)); \
+ wrong_type_argument (Qcharsetp, (x)); \
} while (0)
#define ISO_CHARSET_TABLE(dimension, chars_96, final) \
iso_charset_table[(dimension) - 1][(chars_96)][(final)]
-/* Nonzero iff the charset who has FAST_MAP may contain C. */
+/* Nonzero if the charset who has FAST_MAP may contain C. */
#define CHARSET_FAST_MAP_REF(c, fast_map) \
((c) < 0x10000 \
? fast_map[(c) >> 10] & (1 << (((c) >> 7) & 7)) \
-/* 1 iff CHARSET may contain the character C. */
+/* 1 if CHARSET may contain the character C. */
#define CHAR_CHARSET_P(c, charset) \
((ASCII_CHAR_P (c) && (charset)->ascii_compatible_p) \
|| ((CHARSET_UNIFIED_P (charset) \