diff options
author | Ken Raeburn <[email protected]> | 2002-07-19 14:27:24 +0000 |
---|---|---|
committer | Ken Raeburn <[email protected]> | 2002-07-19 14:27:24 +0000 |
commit | 2e567bd3ecb3e5bf61c7a6d349b8ff944390aca0 (patch) | |
tree | c6ab052ecff9acc6e89d9019b45223b9fafb1b8c /src/syntax.c | |
parent | dca0fc1c6ce86193b6973dcd06f6e29893439357 (diff) |
(Fstring_to_syntax, skip_chars): Treat Lisp string
contents as const.
Diffstat (limited to 'src/syntax.c')
-rw-r--r-- | src/syntax.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/syntax.c b/src/syntax.c index 8d6b052f14..f020bdbbce 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -901,7 +901,7 @@ text property. */) (string) Lisp_Object string; { - register unsigned char *p; + register const unsigned char *p; register enum syntaxcode code; int val; Lisp_Object match; @@ -1365,7 +1365,7 @@ skip_chars (forwardp, syntaxp, string, lim) int multibyte = !NILP (current_buffer->enable_multibyte_characters); int string_multibyte; int size_byte; - unsigned char *str; + const unsigned char *str; int len; CHECK_STRING (string); @@ -1386,10 +1386,11 @@ skip_chars (forwardp, syntaxp, string, lim) nbytes = SCHARS (string); if (nbytes != size_byte) { - str = (unsigned char *) alloca (nbytes); - copy_text (SDATA (string), str, size_byte, + unsigned char *tmp = (unsigned char *) alloca (nbytes); + copy_text (SDATA (string), tmp, size_byte, string_multibyte, multibyte); size_byte = nbytes; + str = tmp; } } |