comparison src/composite.c @ 98213:52d26067a946

(Fcomposition_get_gstring): Yet another int/Lisp_Oject mixup (YAILOM).

98212:3b2bee2b95a4

must be ignore.  */)
     (from, to, font_object, string)
     Lisp_Object font_object, from, to, string;
{
  Lisp_Object gstring, header;

  if (! NILP (font_object))
    CHECK_FONT_OBJECT (font_object);
  header = fill_gstring_header (Qnil, from, to, font_object, string);
  gstring = gstring_lookup_cache (header);
  if (! NILP (gstring))
    return gstring;
  if (LGSTRING_GLYPH_LEN (gstring_work) < to - from)
    gstring_work = Fmake_vector (make_number (to - from + 2), Qnil);
  LGSTRING_SET_HEADER (gstring_work, header);
  LGSTRING_SET_ID (gstring_work, Qnil);
  fill_gstring_body (gstring_work);
  return gstring_work;
}

98213:52d26067a946

must be ignore.  */)
     (from, to, font_object, string)
     Lisp_Object font_object, from, to, string;
{
  Lisp_Object gstring, header;
  EMACS_INT frompos, topos;

  if (! NILP (font_object))
    CHECK_FONT_OBJECT (font_object);
  header = fill_gstring_header (Qnil, from, to, font_object, string);
  gstring = gstring_lookup_cache (header);
  if (! NILP (gstring))
    return gstring;

  /* Maybe we should check this at the function's entry.  --Stef  */
  CHECK_NATNUM (from); frompos = XINT (from);
  CHECK_NATNUM (to);   topos = XINT (to);

  if (LGSTRING_GLYPH_LEN (gstring_work) < topos - frompos)
    gstring_work = Fmake_vector (make_number (topos - frompos + 2), Qnil);
  LGSTRING_SET_HEADER (gstring_work, header);
  LGSTRING_SET_ID (gstring_work, Qnil);
  fill_gstring_body (gstring_work);
  return gstring_work;
}