comparison src/chartab.c @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents fdefd0186b75
children 026c5bf9c134
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
1344 int start = MIN_LEADING_BYTE; 1344 int start = MIN_LEADING_BYTE;
1345 int stop = start + NUM_LEADING_BYTES; 1345 int stop = start + NUM_LEADING_BYTES;
1346 1346
1347 for (i = start, retval = 0; i < stop && retval == 0; i++) 1347 for (i = start, retval = 0; i < stop && retval == 0; i++)
1348 { 1348 {
1349 retval = map_over_other_charset (ct, i, fn, arg); 1349 if (i != LEADING_BYTE_ASCII && i != LEADING_BYTE_CONTROL_1)
1350 retval = map_over_other_charset (ct, i, fn, arg);
1350 } 1351 }
1351 } 1352 }
1352 #endif /* MULE */ 1353 #endif /* MULE */
1353 return retval; 1354 return retval;
1354 } 1355 }
1359 XCHARSET_LEADING_BYTE (range->charset), 1360 XCHARSET_LEADING_BYTE (range->charset),
1360 fn, arg); 1361 fn, arg);
1361 1362
1362 case CHARTAB_RANGE_ROW: 1363 case CHARTAB_RANGE_ROW:
1363 { 1364 {
1364 Lisp_Object val = ct->level1[XCHARSET_LEADING_BYTE (range->charset) - MIN_LEADING_BYTE]; 1365 Lisp_Object val = ct->level1[XCHARSET_LEADING_BYTE (range->charset) -
1366 MIN_LEADING_BYTE];
1365 if (!CHAR_TABLE_ENTRYP (val)) 1367 if (!CHAR_TABLE_ENTRYP (val))
1366 { 1368 {
1367 struct chartab_range rainj; 1369 struct chartab_range rainj;
1368 1370
1369 rainj.type = CHARTAB_RANGE_ROW; 1371 rainj.type = CHARTAB_RANGE_ROW;