projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(byte_table_same_value_p): Use `internal_equal' instead of `EQ'.
[chise/xemacs-chise.git-]
/
src
/
mule-charset.c
diff --git
a/src/mule-charset.c
b/src/mule-charset.c
index
f1344c5
..
222ce97
100644
(file)
--- a/
src/mule-charset.c
+++ b/
src/mule-charset.c
@@
-610,7
+610,7
@@
byte_table_same_value_p (Lisp_Object obj)
for (i = 1; i < 256; i++)
{
for (i = 1; i < 256; i++)
{
- if (!EQ (bte->property[i], v0))
+ if (!internal_equal (bte->property[i], v0, 0))
return 0;
}
return -1;
return 0;
}
return -1;
@@
-712,7
+712,7
@@
put_byte_table (Lisp_Object table, unsigned char idx, Lisp_Object value)
return value;
}
}
return value;
}
}
- else if (!EQ (table, value))
+ else if (!internal_equal (table, value, 0))
{
if (UINT8_VALUE_P (table) && UINT8_VALUE_P (value))
{
{
if (UINT8_VALUE_P (table) && UINT8_VALUE_P (value))
{
@@
-766,10
+766,17
@@
print_char_id_table (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
static int
char_id_table_equal (Lisp_Object obj1, Lisp_Object obj2, int depth)
{
static int
char_id_table_equal (Lisp_Object obj1, Lisp_Object obj2, int depth)
{
- Lisp_Char_ID_Table *cte1 = XCHAR_ID_TABLE (obj1);
- Lisp_Char_ID_Table *cte2 = XCHAR_ID_TABLE (obj2);
+ Lisp_Object table1 = XCHAR_ID_TABLE (obj1)->table;
+ Lisp_Object table2 = XCHAR_ID_TABLE (obj2)->table;
+ int i;
- return byte_table_equal (cte1->table, cte2->table, depth + 1);
+ for (i = 0; i < 256; i++)
+ {
+ if (!internal_equal (get_byte_table (table1, i),
+ get_byte_table (table2, i), 0))
+ return 0;
+ }
+ return -1;
}
static unsigned long
}
static unsigned long