Function: optimize-char-table

optimize-char-table is a function defined in chartab.c.

Signature

(optimize-char-table CHAR-TABLE &optional TEST)

Documentation

Optimize CHAR-TABLE.

TEST is the comparison function used to decide whether two entries are equivalent and can be merged. It defaults to equal.

Source Code

// Defined in /usr/src/emacs/src/chartab.c
{
  Lisp_Object elt;
  int i;

  CHECK_CHAR_TABLE (char_table);

  for (i = 0; i < chartab_size[0]; i++)
    {
      elt = XCHAR_TABLE (char_table)->contents[i];
      if (SUB_CHAR_TABLE_P (elt))
	set_char_table_contents
	  (char_table, i, optimize_sub_char_table (elt, test));
    }
  /* Reset the `ascii' cache, in case it got optimized away.  */
  set_char_table_ascii (char_table, char_table_ascii (char_table));

  return Qnil;
}