1 files changed, 1 insertions, 0 deletions
diff --git a/src/casetab.c b/src/casetab.c
index 3a008da5f40..9bec57f068e 100644
--- a/src/casetab.c
+++ b/src/casetab.c
@@ -214,6 +214,7 @@ init_casetab_once ()
  down = Fmake_char_table (Qcase_table, Qnil);
  Vascii_downcase_table = down;
+  XCHAR_TABLE (down)->purpose = Qcase_table;
  for (i = 0; i < 256; i++)
    XCHAR_TABLE (down)->contents[i] = (i >= 'A' && i <= 'Z') ? i + 040 : i;

diff --git a/src/casetab.c b/src/casetab.c index 3a008da5f40..9bec57f068e 100644 --- a/src/casetab.c +++ b/src/casetab.c
@@ -214,6 +214,7 @@ init_casetab_once ()
214		214
215	down = Fmake_char_table (Qcase_table, Qnil);	215	down = Fmake_char_table (Qcase_table, Qnil);
216	Vascii_downcase_table = down;	216	Vascii_downcase_table = down;
		217	XCHAR_TABLE (down)->purpose = Qcase_table;
217		218
218	for (i = 0; i < 256; i++)	219	for (i = 0; i < 256; i++)
219	XCHAR_TABLE (down)->contents[i] = (i >= 'A' && i <= 'Z') ? i + 040 : i;	220	XCHAR_TABLE (down)->contents[i] = (i >= 'A' && i <= 'Z') ? i + 040 : i;