diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-25 18:45:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-25 18:45:25 +0000 |
| commit | 2952b6a38636ec39157b960f1e26d853074cc603 (patch) | |
| tree | 8295927e5b01244e8874b7736815d84f2de8ffd1 /src/syntax.c | |
| parent | 54938d48b75070705ea3f04947bc467b01e1e999 (diff) | |
| download | emacs-2952b6a38636ec39157b960f1e26d853074cc603.tar.gz | |
(Fforward_comment): Always set point.
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/syntax.c b/src/syntax.c index 9dcb8c23f94..fb584021485 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -612,6 +612,7 @@ between them, return t; otherwise return nil.") if (from == stop) { immediate_quit = 0; + SET_PT (from); return Qnil; } c = FETCH_CHAR (from); @@ -636,6 +637,7 @@ between them, return t; otherwise return nil.") else if (code != Swhitespace) { immediate_quit = 0; + SET_PT (from); return Qnil; } } @@ -685,6 +687,7 @@ between them, return t; otherwise return nil.") if (from == stop) { immediate_quit = 0; + SET_PT (from); return Qnil; } from--; @@ -808,6 +811,7 @@ between them, return t; otherwise return nil.") else if (code != Swhitespace || quoted) { immediate_quit = 0; + SET_PT (from); return Qnil; } } |