Lines Matching defs:table
42 DEFUN ("case-table-p", Fcase_table_p, Scase_table_p, 1, 1, 0,
43 doc: /* Return t iff OBJECT is a case table.
44 See `set-case-table' for more information on these data structures. */)
74 DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0,
75 doc: /* Return the case table of the current buffer. */)
81 DEFUN ("standard-case-table", Fstandard_case_table, Sstandard_case_table, 0, 0, 0,
82 doc: /* Return the standard case table.
91 DEFUN ("set-case-table", Fset_case_table, Sset_case_table, 1, 1, 0,
92 doc: /* Select a new case table for the current buffer.
93 A case table is a char-table which maps characters
100 you may use nil and the upcase table will be deduced from DOWNCASE.
108 (table)
109 Lisp_Object table;
111 return set_case_table (table, 0);
114 DEFUN ("set-standard-case-table", Fset_standard_case_table, Sset_standard_case_table, 1, 1, 0,
115 doc: /* Select a new standard case table for new buffers.
116 See `set-case-table' for more info on case tables. */)
117 (table)
118 Lisp_Object table;
120 return set_case_table (table, 1);
124 set_case_table (table, standard)
125 Lisp_Object table;
131 check_case_table (table);
133 up = XCHAR_TABLE (table)->extras[0];
134 canon = XCHAR_TABLE (table)->extras[1];
135 eqv = XCHAR_TABLE (table)->extras[2];
140 map_char_table (set_identity, Qnil, table, table, up, 0, indices);
141 map_char_table (shuffle, Qnil, table, table, up, 0, indices);
142 XCHAR_TABLE (table)->extras[0] = up;
148 XCHAR_TABLE (table)->extras[1] = canon;
149 map_char_table (set_canon, Qnil, table, table, table, 0, indices);
157 XCHAR_TABLE (table)->extras[2] = eqv;
160 /* This is so set_image_of_range_1 in regex.c can find the EQV table. */
165 Vascii_downcase_table = table;
172 current_buffer->downcase_table = table;
178 return table;
184 /* Set CANON char-table element for C to a translated ELT by UP and
199 /* Set elements of char-table TABLE for C to C itself. This is done
203 set_identity (table, c, elt)
204 Lisp_Object table, c, elt;
207 Faset (table, c, c);
212 induced by the translation table on which map_char_table is
216 shuffle (table, c, elt)
217 Lisp_Object table, c, elt;
221 Lisp_Object tem = Faref (table, elt);
222 Faset (table, elt, c);
223 Faset (table, c, tem);
233 Qcase_table = intern ("case-table");
239 Qchar_table_extra_slots = intern ("char-table-extra-slots");
275 Qcase_table_p = intern ("case-table-p");