Mercurial > emacs
changeset 20330:f76b9c0ebc4b
(back_comment): Handle 2-char comment starts
when reaching the first of the pair.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 23 Nov 1997 02:18:34 +0000 |
| parents | 0302b5c33acf |
| children | 39baaa9c5980 |
| files | src/syntax.c |
| diffstat | 1 files changed, 12 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/src/syntax.c Sun Nov 23 02:17:48 1997 +0000 +++ b/src/syntax.c Sun Nov 23 02:18:34 1997 +0000 @@ -333,12 +333,13 @@ return find_start_value; } -/* Checks whether FROM is the end of comment. Does not try to - fallback more than to STOP. - Returns -1 if cannot find comment ending at from, otherwise start - of comment. Global syntax data remains valid for - backward search starting at the returned value (or at FROM, if - the search was not successful). */ +/* Checks whether FROM is at the end of a comment; + and if so, returns position of the start of the comment. + But does not move back before STOP. + Returns -1 if there is no comment ending at FROM. + + Global syntax data remains valid for backward search starting at + the returned value (or at FROM, if the search was not successful). */ static int back_comment (from, stop, comstyle) @@ -374,7 +375,7 @@ c = FETCH_CHAR (from); code = SYNTAX (c); - /* If this char is the second of a 2-char comment sequence, + /* If this char is the second of a 2-char comment end sequence, back up and give the pair the appropriate syntax. */ if (from > stop && SYNTAX_COMEND_SECOND (c) && SYNTAX_COMEND_FIRST (FETCH_CHAR (from - 1))) @@ -388,16 +389,10 @@ /* If this char starts a 2-char comment start sequence, treat it like a 1-char comment starter. */ - if (from < scanstart && SYNTAX_COMSTART_SECOND (c) - && SYNTAX_COMSTART_FIRST (FETCH_CHAR (from - 1)) - && comstyle == SYNTAX_COMMENT_STYLE (c)) - { - code = Scomment; - DEC_POS (from); - /* This is apparently the best we can do: */ - UPDATE_SYNTAX_TABLE_BACKWARD (from); - c = FETCH_CHAR (from); - } + if (from < scanstart && SYNTAX_COMSTART_FIRST (c) + && SYNTAX_COMSTART_SECOND (FETCH_CHAR (from + 1)) + && comstyle == SYNTAX_COMMENT_STYLE (FETCH_CHAR (from + 1))) + code = Scomment; /* Ignore escaped characters. */ if (char_quoted (from))