diff options
| author | Andrea Corallo | 2020-08-29 11:33:37 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-08-29 11:33:37 +0200 |
| commit | c3514a6274cd6c6ddf2c133ccc708b7875aab90e (patch) | |
| tree | 5f76eefdfef645bca9bc8640accb77c53704116a /src/syntax.c | |
| parent | aa526c9470d679e9144af55d9e56928a111d2ceb (diff) | |
| parent | 7d5807277ff614a337c7e4530bb8d0e0188c189b (diff) | |
| download | emacs-c3514a6274cd6c6ddf2c133ccc708b7875aab90e.tar.gz emacs-c3514a6274cd6c6ddf2c133ccc708b7875aab90e.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/syntax.c b/src/syntax.c index 9f77ea5f9b0..7f0fc341f6e 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -807,7 +807,7 @@ back_comment (ptrdiff_t from, ptrdiff_t from_byte, ptrdiff_t stop, | |||
| 807 | 807 | ||
| 808 | /* Ignore escaped characters, except comment-enders which cannot | 808 | /* Ignore escaped characters, except comment-enders which cannot |
| 809 | be escaped. */ | 809 | be escaped. */ |
| 810 | if ((Vcomment_end_can_be_escaped || code != Sendcomment) | 810 | if ((comment_end_can_be_escaped || code != Sendcomment) |
| 811 | && char_quoted (from, from_byte)) | 811 | && char_quoted (from, from_byte)) |
| 812 | continue; | 812 | continue; |
| 813 | 813 | ||
| @@ -2336,7 +2336,7 @@ forw_comment (ptrdiff_t from, ptrdiff_t from_byte, ptrdiff_t stop, | |||
| 2336 | && SYNTAX_FLAGS_COMMENT_STYLE (syntax, 0) == style | 2336 | && SYNTAX_FLAGS_COMMENT_STYLE (syntax, 0) == style |
| 2337 | && (SYNTAX_FLAGS_COMMENT_NESTED (syntax) ? | 2337 | && (SYNTAX_FLAGS_COMMENT_NESTED (syntax) ? |
| 2338 | (nesting > 0 && --nesting == 0) : nesting < 0) | 2338 | (nesting > 0 && --nesting == 0) : nesting < 0) |
| 2339 | && !(Vcomment_end_can_be_escaped && char_quoted (from, from_byte))) | 2339 | && !(comment_end_can_be_escaped && char_quoted (from, from_byte))) |
| 2340 | /* We have encountered a comment end of the same style | 2340 | /* We have encountered a comment end of the same style |
| 2341 | as the comment sequence which began this comment | 2341 | as the comment sequence which began this comment |
| 2342 | section. */ | 2342 | section. */ |
| @@ -2569,7 +2569,7 @@ between them, return t; otherwise return nil. */) | |||
| 2569 | } | 2569 | } |
| 2570 | else if (code == Sendcomment) | 2570 | else if (code == Sendcomment) |
| 2571 | { | 2571 | { |
| 2572 | found = (!quoted || !Vcomment_end_can_be_escaped) | 2572 | found = (!quoted || !comment_end_can_be_escaped) |
| 2573 | && back_comment (from, from_byte, stop, comnested, comstyle, | 2573 | && back_comment (from, from_byte, stop, comnested, comstyle, |
| 2574 | &out_charpos, &out_bytepos); | 2574 | &out_charpos, &out_bytepos); |
| 2575 | if (!found) | 2575 | if (!found) |
| @@ -3760,9 +3760,9 @@ character of that word. | |||
| 3760 | In both cases, LIMIT bounds the search. */); | 3760 | In both cases, LIMIT bounds the search. */); |
| 3761 | Vfind_word_boundary_function_table = Fmake_char_table (Qnil, Qnil); | 3761 | Vfind_word_boundary_function_table = Fmake_char_table (Qnil, Qnil); |
| 3762 | 3762 | ||
| 3763 | DEFVAR_BOOL ("comment-end-can-be-escaped", Vcomment_end_can_be_escaped, | 3763 | DEFVAR_BOOL ("comment-end-can-be-escaped", comment_end_can_be_escaped, |
| 3764 | doc: /* Non-nil means an escaped ender inside a comment doesn't end the comment. */); | 3764 | doc: /* Non-nil means an escaped ender inside a comment doesn't end the comment. */); |
| 3765 | Vcomment_end_can_be_escaped = 0; | 3765 | comment_end_can_be_escaped = false; |
| 3766 | DEFSYM (Qcomment_end_can_be_escaped, "comment-end-can-be-escaped"); | 3766 | DEFSYM (Qcomment_end_can_be_escaped, "comment-end-can-be-escaped"); |
| 3767 | Fmake_variable_buffer_local (Qcomment_end_can_be_escaped); | 3767 | Fmake_variable_buffer_local (Qcomment_end_can_be_escaped); |
| 3768 | 3768 | ||