diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-25 18:49:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-25 18:49:54 +0000 |
| commit | be720845208cc20af4536d57b936da8b9549e669 (patch) | |
| tree | 9a29bb0bd2b9ca350d5cf8090b99a71a6ff850da /src/syntax.c | |
| parent | 5d3bffd4599fc4e6ebb76c9ae8e413d02fcbeec0 (diff) | |
| download | emacs-be720845208cc20af4536d57b936da8b9549e669.tar.gz | |
(Fforward_comment): Fix last change.
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/syntax.c b/src/syntax.c index fb584021485..2ade690b274 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -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; } } |