comparison src/casetab.c @ 88851:5a64797b3ca1

(init_casetab_once, init_casetab_once): Fix CHAR_TABLE_SET call.

88850:6f9164905a7c

  down = Fmake_char_table (Qcase_table, Qnil);
  Vascii_downcase_table = down;
  XCHAR_TABLE (down)->purpose = Qcase_table;

  for (i = 0; i < 128; i++)
    CHAR_TABLE_SET (down, i, (i >= 'A' && i <= 'Z') ? i + ('a' - 'A') : i);

  XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down);

  up = Fmake_char_table (Qcase_table, Qnil);
  XCHAR_TABLE (down)->extras[0] = up;

  for (i = 0; i < 128; i++)
    CHAR_TABLE_SET (up, i, ((i >= 'A' && i <= 'Z')
			    ? i + ('a' - 'A')
			    : ((i >= 'a' && i <= 'z')
			       ? i + ('A' - 'a')
			       : i)));

  XCHAR_TABLE (down)->extras[2] = Fcopy_sequence (up);
}

void

88851:5a64797b3ca1

  down = Fmake_char_table (Qcase_table, Qnil);
  Vascii_downcase_table = down;
  XCHAR_TABLE (down)->purpose = Qcase_table;

  for (i = 0; i < 128; i++)
    CHAR_TABLE_SET (down, i,
		    make_number ((i >= 'A' && i <= 'Z') ? i + ('a' - 'A') : i));

  XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down);

  up = Fmake_char_table (Qcase_table, Qnil);
  XCHAR_TABLE (down)->extras[0] = up;

  for (i = 0; i < 128; i++)
    CHAR_TABLE_SET (up, i, make_number ((i >= 'A' && i <= 'Z')
					? i + ('a' - 'A')
					: ((i >= 'a' && i <= 'z')
					   ? i + ('A' - 'a')
					   : i)));

  XCHAR_TABLE (down)->extras[2] = Fcopy_sequence (up);
}

void