# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 860526357 0
# Node ID 64722b193f1445d629d7cbaf431f1f4dcbdd7734
# Parent  8ce3d2e461bc58dbd21c2087188e25e886e5dc4d
(init_casetab_once): Initialize the purpose slot.

diff -r 8ce3d2e461bc -r 64722b193f14 src/casetab.c
--- a/src/casetab.c	Tue Apr 08 01:41:40 1997 +0000
+++ b/src/casetab.c	Tue Apr 08 19:05:57 1997 +0000
@@ -214,6 +214,7 @@
 
   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;