comparison src/alloc.c @ 1500:6489d5182a64

* alloc.c (Frope_elt): Declare arguments to be Lisp_Objects.

1499:94aa6a66e921

DEFUN ("rope-elt", Frope_elt, Srope_elt, 2, 2, 0,
  "Return an element of rope R at index N.\n\
A rope is a string in which each pair of bytes is considered an element.\n\
See variable `buffer-display-table' for the uses of ropes.")
  (r, n)
{
  CHECK_STRING (r, 0);
  CHECK_NUMBER (n, 1);
  if ((XSTRING (r)->size / sizeof (GLYPH)) <= XINT (n) || XINT (n) < 0)
    args_out_of_range (r, n);

1500:6489d5182a64

DEFUN ("rope-elt", Frope_elt, Srope_elt, 2, 2, 0,
  "Return an element of rope R at index N.\n\
A rope is a string in which each pair of bytes is considered an element.\n\
See variable `buffer-display-table' for the uses of ropes.")
  (r, n)
    Lisp_Object r, n;
{
  CHECK_STRING (r, 0);
  CHECK_NUMBER (n, 1);
  if ((XSTRING (r)->size / sizeof (GLYPH)) <= XINT (n) || XINT (n) < 0)
    args_out_of_range (r, n);