comparison src/alloc.c @ 83292:ad07ff6e4555

Merged from [e-mail]--gnu-2005 (patch 67, 270-278) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-270 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-271 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-272 src/xdisp.c (dump_glyph_row): Don't display overlay_arrow_p field. * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-273 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-274 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-275 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-276 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-277 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-278 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-67 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-332

83291:bbf359ec4a59

  XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
  return vector;
}


/* Return a newly created sub char table with default value DEFALT.
   Since a sub char table does not appear as a top level Emacs Lisp
   object, we don't need a Lisp interface to make it.  */

Lisp_Object
make_sub_char_table (defalt)
     Lisp_Object defalt;
{
  Lisp_Object vector
    = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), Qnil);
  XCHAR_TABLE (vector)->top = Qnil;
  XCHAR_TABLE (vector)->defalt = defalt;
  XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
  return vector;
}

83292:ad07ff6e4555

  XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
  return vector;
}


/* Return a newly created sub char table with slots initialized by INIT.
   Since a sub char table does not appear as a top level Emacs Lisp
   object, we don't need a Lisp interface to make it.  */

Lisp_Object
make_sub_char_table (init)
     Lisp_Object init;
{
  Lisp_Object vector
    = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), init);
  XCHAR_TABLE (vector)->top = Qnil;
  XCHAR_TABLE (vector)->defalt = Qnil;
  XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
  return vector;
}