comparison src/syntax.c @ 3095:ef7d99920f81

(Fforward_comment): Arg is a Lisp_Object. Convert it to an int.

3094:4b3770f84aa7

Set point to the far end of the last comment found.\n\
Stop scanning if we find something other than a comment or whitespace.\n\
If N comments are found as expected, with nothing except whitespace\n\
between them, return t; otherwise return nil.")
  (count)
     int count;
{
  register int from;
  register int stop;
  register int c;
  register enum syntaxcode code;
  int comstyle = 0;	    /* style of comment encountered */
  int found;

  immediate_quit = 1;
  QUIT;

  from = PT;
  found = from;

  while (count > 0)
    {
      found = from;
      stop = ZV;
      while (from < stop)
	{

	      return Qnil;
	    }
	}

      /* End of comment reached */
      count--;
    }

  while (count < 0)
    {
      found = from;

      stop = BEGV;
      while (from > stop)

	      SET_PT (found);
	      return Qnil;
	    }
	}

      count++;
    }

  SET_PT (from);
  immediate_quit = 0;
  return Qt;

3095:ef7d99920f81

Set point to the far end of the last comment found.\n\
Stop scanning if we find something other than a comment or whitespace.\n\
If N comments are found as expected, with nothing except whitespace\n\
between them, return t; otherwise return nil.")
  (count)
     Lisp_Object count;
{
  register int from;
  register int stop;
  register int c;
  register enum syntaxcode code;
  int comstyle = 0;	    /* style of comment encountered */
  int found;
  int count1;

  CHECK_NUMBER (count, 0);
  count1 = XINT (count);

  immediate_quit = 1;
  QUIT;

  from = PT;
  found = from;

  while (count1 > 0)
    {
      found = from;
      stop = ZV;
      while (from < stop)
	{

	      return Qnil;
	    }
	}

      /* End of comment reached */
      count1--;
    }

  while (count1 < 0)
    {
      found = from;

      stop = BEGV;
      while (from > stop)

	      SET_PT (found);
	      return Qnil;
	    }
	}

      count1++;
    }

  SET_PT (from);
  immediate_quit = 0;
  return Qt;