Mercurial > emacs
changeset 22486:a28020246db1
(skip_chars): Don't examine STRING before verifying that it is a string.
(scan_lists): Use prev_char_comend_first, not ...comstart...
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 14 Jun 1998 19:04:01 +0000 |
| parents | b469abbc9984 |
| children | cd99ca6a8f1f |
| files | src/syntax.c |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/syntax.c Sun Jun 14 19:03:11 1998 +0000 +++ b/src/syntax.c Sun Jun 14 19:04:01 1998 +0000 @@ -1289,11 +1289,13 @@ int negate = 0; register int i, i_byte; int multibyte = !NILP (current_buffer->enable_multibyte_characters); - int string_multibyte = STRING_MULTIBYTE (string); - int size_byte = STRING_BYTES (XSTRING (string)); + int string_multibyte; + int size_byte; CHECK_STRING (string, 0); char_ranges = (int *) alloca (XSTRING (string)->size * (sizeof (int)) * 2); + string_multibyte = STRING_MULTIBYTE (string); + size_byte = STRING_BYTES (XSTRING (string)); if (NILP (lim)) XSETINT (lim, forwardp ? ZV : BEGV); @@ -2021,7 +2023,7 @@ if (code == Sendcomment) comstyle = SYNTAX_COMMENT_STYLE (c); if (from > stop && SYNTAX_COMEND_SECOND (c) - && prev_char_comstart_first (from, from_byte) + && prev_char_comend_first (from, from_byte) && parse_sexp_ignore_comments) { /* We must record the comment style encountered so that