Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2e567bd3
Commit
2e567bd3
authored
Jul 19, 2002
by
Ken Raeburn
Browse files
(Fstring_to_syntax, skip_chars): Treat Lisp string
contents as const.
parent
dca0fc1c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
src/syntax.c
src/syntax.c
+5
-4
No files found.
src/syntax.c
View file @
2e567bd3
...
...
@@ -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
;
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment