projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(insert-char-data): Fix format of `iso-10646-comment'; swap order of
[chise/xemacs-chise.git]
/
src
/
chartab.c
diff --git
a/src/chartab.c
b/src/chartab.c
index
51e62ee
..
003c919
100644
(file)
--- a/
src/chartab.c
+++ b/
src/chartab.c
@@
-356,7
+356,7
@@
print_char_table (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
#ifdef MULE
{
#ifdef MULE
{
- int i;
+ Charset_ID i;
for (i = MIN_LEADING_BYTE; i < MIN_LEADING_BYTE + NUM_LEADING_BYTES;
i++)
for (i = MIN_LEADING_BYTE; i < MIN_LEADING_BYTE + NUM_LEADING_BYTES;
i++)
@@
-767,8
+767,8
@@
decode_char_table_range (Lisp_Object range, struct chartab_range *outrange)
/* called from CHAR_TABLE_VALUE(). */
Lisp_Object
/* called from CHAR_TABLE_VALUE(). */
Lisp_Object
-get_non_ascii_char_table_value (struct Lisp_Char_Table *ct, int leading_byte,
- Emchar c)
+get_non_ascii_char_table_value (struct Lisp_Char_Table *ct,
+ Charset_ID leading_byte, Emchar c)
{
Lisp_Object val;
#ifdef UTF2000
{
Lisp_Object val;
#ifdef UTF2000
@@
-1267,7
+1267,7
@@
map_over_charset_row (struct Lisp_Char_Table_Entry *cte,
static int
static int
-map_over_other_charset (struct Lisp_Char_Table *ct, int lb,
+map_over_other_charset (struct Lisp_Char_Table *ct, Charset_ID lb,
int (*fn) (struct chartab_range *range,
Lisp_Object val, void *arg),
void *arg)
int (*fn) (struct chartab_range *range,
Lisp_Object val, void *arg),
void *arg)
@@
-1344,9
+1344,9
@@
map_char_table (struct Lisp_Char_Table *ct,
if (retval)
return retval;
{
if (retval)
return retval;
{
- int i;
- int start = MIN_LEADING_BYTE;
- int stop = start + NUM_LEADING_BYTES;
+ Charset_ID i;
+ Charset_ID start = MIN_LEADING_BYTE;
+ Charset_ID stop = start + NUM_LEADING_BYTES;
for (i = start, retval = 0; i < stop && retval == 0; i++)
{
for (i = start, retval = 0; i < stop && retval == 0; i++)
{
@@
-1365,7
+1365,8
@@
map_char_table (struct Lisp_Char_Table *ct,
case CHARTAB_RANGE_ROW:
{
case CHARTAB_RANGE_ROW:
{
- Lisp_Object val = ct->level1[XCHARSET_LEADING_BYTE (range->charset) - MIN_LEADING_BYTE];
+ Lisp_Object val = ct->level1[XCHARSET_LEADING_BYTE (range->charset)
+ - MIN_LEADING_BYTE];
if (!CHAR_TABLE_ENTRYP (val))
{
struct chartab_range rainj;
if (!CHAR_TABLE_ENTRYP (val))
{
struct chartab_range rainj;