Mercurial > emacs
changeset 20475:efbebc38e077
Comment and whitespace changes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 21 Dec 1997 01:34:37 +0000 |
| parents | 2ff24b456bb7 |
| children | f213a5906ea6 |
| files | src/syntax.c |
| diffstat | 1 files changed, 23 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/src/syntax.c Sun Dec 21 01:33:06 1997 +0000 +++ b/src/syntax.c Sun Dec 21 01:34:37 1997 +0000 @@ -2308,7 +2308,9 @@ assuming that FROM has state OLDSTATE (nil means FROM is start of function), and return a description of the state of the parse at END. If STOPBEFORE is nonzero, stop at the start of an atom. - If COMMENTSTOP is nonzero, stop at the start of a comment. */ + If COMMENTSTOP is 1, stop at the start of a comment. + If COMMENTSTOP is -1, stop at the start or end of a comment, + after the beginning of a string, or after the end of a string. */ static void scan_sexps_forward (stateptr, from, end, targetdepth, @@ -2569,29 +2571,29 @@ if (boundary_stop) goto done; startinstring: { - nofence = state.instring != ST_STRING_STYLE; + nofence = state.instring != ST_STRING_STYLE; - while (1) - { - int c; + while (1) + { + int c; - if (from >= end) goto done; - c = FETCH_CHAR (from); - if (nofence && c == state.instring) break; - UPDATE_SYNTAX_TABLE_FORWARD (from); - switch (SWITCH_ENUM_CAST (SYNTAX (c))) - { - case Sstring_fence: - if (!nofence) goto string_end; - break; - case Scharquote: - case Sescape: - INC_FROM; - startquotedinstring: - if (from >= end) goto endquoted; - } - INC_FROM; + if (from >= end) goto done; + c = FETCH_CHAR (from); + if (nofence && c == state.instring) break; + UPDATE_SYNTAX_TABLE_FORWARD (from); + switch (SWITCH_ENUM_CAST (SYNTAX (c))) + { + case Sstring_fence: + if (!nofence) goto string_end; + break; + case Scharquote: + case Sescape: + INC_FROM; + startquotedinstring: + if (from >= end) goto endquoted; } + INC_FROM; + } } string_end: state.instring = -1;