comparison src/indent.c @ 6572:8f28e5ce91cc

(Fcompute_motion): Typecheck all arguments.

6571:ef864f9fd3cc

{
  Lisp_Object bufpos, hpos, vpos, prevhpos, contin;
  struct position *pos;
  int hscroll, tab_offset;

  CHECK_CONS (frompos, 0);
  CHECK_CONS (topos, 0);
  if (!NILP (offsets))
    {
      CHECK_CONS (offsets, 0);
      hscroll = XINT (XCONS (offsets)->car);
      tab_offset = XINT (XCONS (offsets)->cdr);
    }
  else
    hscroll = tab_offset = 0;

6572:8f28e5ce91cc

{
  Lisp_Object bufpos, hpos, vpos, prevhpos, contin;
  struct position *pos;
  int hscroll, tab_offset;

  CHECK_INT (from, 0);
  CHECK_CONS (frompos, 0);
  CHECK_INT (XCONS (frompos)->car, 0);
  CHECK_INT (XCONS (frompos)->cdr, 0);
  CHECK_INT (to, 0);
  CHECK_CONS (topos, 0);
  CHECK_INT (XCONS (topos)->car, 0);
  CHECK_INT (XCONS (topos)->cdr, 0);
  CHECK_INT (width);
  if (!NILP (offsets))
    {
      CHECK_CONS (offsets, 0);
      CHECK_INT (XCONS (offsets)->car);
      CHECK_INT (XCONS (offsets)->cdr);
      hscroll = XINT (XCONS (offsets)->car);
      tab_offset = XINT (XCONS (offsets)->cdr);
    }
  else
    hscroll = tab_offset = 0;