From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Apr 1997 19:05:57 +0000 (+0000)
Subject: (init_casetab_once): Initialize the purpose slot.
X-Git-Tag: emacs-20.1~2605
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1b490ca360cd3d618616a706217afcd6a9022e2;p=emacs.git

(init_casetab_once): Initialize the purpose slot.
---

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;