diff options
| author | Richard M. Stallman | 1997-04-08 19:05:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-08 19:05:57 +0000 |
| commit | e1b490ca360cd3d618616a706217afcd6a9022e2 (patch) | |
| tree | 18ba8a857d9439f57744566b86b823e1ed6f0b2f | |
| parent | 2316704abdb3a72a81a87b732987281ff7ce9495 (diff) | |
| download | emacs-e1b490ca360cd3d618616a706217afcd6a9022e2.tar.gz emacs-e1b490ca360cd3d618616a706217afcd6a9022e2.zip | |
(init_casetab_once): Initialize the purpose slot.
| -rw-r--r-- | src/casetab.c | 1 |
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 () | |||
| 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; |