If N comments are found as expected, with nothing except whitespace\n\
between them, return t; otherwise return nil.")
(count)
- int count;
+ Lisp_Object count;
{
register int from;
register int stop;
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 (count > 0)
+ while (count1 > 0)
{
found = from;
stop = ZV;
}
/* End of comment reached */
- count--;
+ count1--;
}
- while (count < 0)
+ while (count1 < 0)
{
found = from;
}
}
- count++;
+ count1++;
}
SET_PT (from);