From 4edca269ccde1781aa4750d0b82f2c252b3fa5b7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 May 1997 03:22:38 +0000 Subject: [PATCH] (compute_trt_identity): Use make_sub_char_table. (compute_trt_identity, compute_trt_shuffle): Set up bytes[0] with the charset code. Check for a sub-char-table when deciding to recurse. Terminate the loop properly for a sub-char-table. --- src/casetab.c | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/src/casetab.c b/src/casetab.c index 4e901cc1cb4..adf871764f6 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -177,21 +177,21 @@ compute_trt_identity (bytes, depth, trt, inverse) struct Lisp_Char_Table *trt, *inverse; { register int i; + int lim = (depth == 0 ? CHAR_TABLE_ORDINARY_SLOTS : SUB_CHAR_TABLE_ORDINARY_SLOTS); - for (i = 0; i < CHAR_TABLE_ORDINARY_SLOTS; i++) + for (i = 0; i < lim; i++) { if (NATNUMP (trt->contents[i])) { bytes[depth] = i; XSETFASTINT (inverse->contents[i], (depth == 0 && i < CHAR_TABLE_SINGLE_BYTE_SLOTS ? i - : MAKE_NON_ASCII_CHAR (bytes[0]-128, - bytes[1], bytes[2]))); + : MAKE_NON_ASCII_CHAR (bytes[0], bytes[1], bytes[2]))); } - else if (CHAR_TABLE_P (trt->contents[i])) + else if (SUB_CHAR_TABLE_P (trt->contents[i])) { - bytes[depth] = i; - inverse->contents[i] = Fmake_char_table (Qnil, Qnil); + bytes[depth] = i - 128; + inverse->contents[i] = make_sub_char_table (Qnil); compute_trt_identity (bytes, depth + 1, XCHAR_TABLE (trt->contents[i]), XCHAR_TABLE (inverse->contents[i])); @@ -210,14 +210,14 @@ compute_trt_shuffle (bytes, depth, ibase, trt, inverse) { register int i; Lisp_Object j, tem, q; + int lim = (depth == 0 ? CHAR_TABLE_ORDINARY_SLOTS : SUB_CHAR_TABLE_ORDINARY_SLOTS); - for (i = 0; i < CHAR_TABLE_SINGLE_BYTE_SLOTS; i++) + for (i = 0; i < lim; i++) { bytes[depth] = i; XSETFASTINT (j, (depth == 0 && i < CHAR_TABLE_SINGLE_BYTE_SLOTS ? i - : MAKE_NON_ASCII_CHAR (bytes[0]-128, - bytes[1], bytes[2]))); + : MAKE_NON_ASCII_CHAR (bytes[0], bytes[1], bytes[2]))); q = trt->contents[i]; if (NATNUMP (q) && XFASTINT (q) != XFASTINT (j)) { @@ -225,9 +225,9 @@ compute_trt_shuffle (bytes, depth, ibase, trt, inverse) Faset (ibase, q, j); Faset (ibase, j, tem); } - else if (CHAR_TABLE_P (q)) + else if (SUB_CHAR_TABLE_P (q)) { - bytes[depth] = i; + bytes[depth] = i - 128; compute_trt_shuffle (bytes, depth + 1, ibase, XCHAR_TABLE (trt->contents[i]), XCHAR_TABLE (inverse->contents[i])); -- 2.39.2