Mercurial > hg > xemacs-beta

comparison src/rangetab.c @ 4962:e813cf16c015

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Mon, 01 Feb 2010 05:29:05 -0600
parents 19a72041c5ed 6ef8256a020a
children 0d4c9d0f6a8d
comparison
equal deleted inserted replaced
4961:b90f8cf474e0 4962:e813cf16c015
135 else 135 else
136 write_fmt_string (printcharfun, " 0x%x>", rt->header.uid); 136 write_fmt_string (printcharfun, " 0x%x>", rt->header.uid);
137 } 137 }
138 138
139 static int 139 static int
140 range_table_equal (Lisp_Object obj1, Lisp_Object obj2, int depth) 140 range_table_equal (Lisp_Object obj1, Lisp_Object obj2, int depth, int foldcase)
141 { 141 {
142 Lisp_Range_Table *rt1 = XRANGE_TABLE (obj1); 142 Lisp_Range_Table *rt1 = XRANGE_TABLE (obj1);
143 Lisp_Range_Table *rt2 = XRANGE_TABLE (obj2); 143 Lisp_Range_Table *rt2 = XRANGE_TABLE (obj2);
144 int i; 144 int i;
145 145
151 struct range_table_entry *rte1 = Dynarr_atp (rt1->entries, i); 151 struct range_table_entry *rte1 = Dynarr_atp (rt1->entries, i);
152 struct range_table_entry *rte2 = Dynarr_atp (rt2->entries, i); 152 struct range_table_entry *rte2 = Dynarr_atp (rt2->entries, i);
153 153
154 if (rte1->first != rte2->first 154 if (rte1->first != rte2->first
155 || rte1->last != rte2->last 155 || rte1->last != rte2->last
156 || !internal_equal (rte1->val, rte2->val, depth + 1)) 156 || !internal_equal_0 (rte1->val, rte2->val, depth + 1, foldcase))
157 return 0; 157 return 0;
158 } 158 }
159 159
160 return 1; 160 return 1;
161 } 161 }