mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(Fforward_comment): Fix last change.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-25 18:49:54 +00:00
parent 5d3bffd459
commit be72084520
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/syntax.c
View file

@ -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;
}
}