Commit be720845 authored by Richard M. Stallman's avatar Richard M. Stallman

(Fforward_comment): Fix last change.

parent 5d3bffd4
......@@ -577,14 +577,17 @@ between them, return t; otherwise return nil.")
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)
{
......@@ -612,7 +615,7 @@ between them, return t; otherwise return nil.")
if (from == stop)
{
immediate_quit = 0;
SET_PT (from);
SET_PT (found);
return Qnil;
}
c = FETCH_CHAR (from);
......@@ -637,7 +640,7 @@ between them, return t; otherwise return nil.")
else if (code != Swhitespace)
{
immediate_quit = 0;
SET_PT (from);
SET_PT (found);
return Qnil;
}
}
......@@ -648,6 +651,8 @@ between them, return t; otherwise return nil.")
while (count < 0)
{
found = from;
stop = BEGV;
while (from > stop)
{
......@@ -687,7 +692,7 @@ between them, return t; otherwise return nil.")
if (from == stop)
{
immediate_quit = 0;
SET_PT (from);
SET_PT (found);
return Qnil;
}
from--;
......@@ -811,7 +816,7 @@ between them, return t; otherwise return nil.")
else if (code != Swhitespace || quoted)
{
immediate_quit = 0;
SET_PT (from);
SET_PT (found);
return Qnil;
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment