901 |
(string) |
(string) |
902 |
Lisp_Object string; |
Lisp_Object string; |
903 |
{ |
{ |
904 |
register unsigned char *p; |
register const unsigned char *p; |
905 |
register enum syntaxcode code; |
register enum syntaxcode code; |
906 |
int val; |
int val; |
907 |
Lisp_Object match; |
Lisp_Object match; |
1365 |
int multibyte = !NILP (current_buffer->enable_multibyte_characters); |
int multibyte = !NILP (current_buffer->enable_multibyte_characters); |
1366 |
int string_multibyte; |
int string_multibyte; |
1367 |
int size_byte; |
int size_byte; |
1368 |
unsigned char *str; |
const unsigned char *str; |
1369 |
int len; |
int len; |
1370 |
|
|
1371 |
CHECK_STRING (string); |
CHECK_STRING (string); |
1386 |
nbytes = SCHARS (string); |
nbytes = SCHARS (string); |
1387 |
if (nbytes != size_byte) |
if (nbytes != size_byte) |
1388 |
{ |
{ |
1389 |
str = (unsigned char *) alloca (nbytes); |
unsigned char *tmp = (unsigned char *) alloca (nbytes); |
1390 |
copy_text (SDATA (string), str, size_byte, |
copy_text (SDATA (string), tmp, size_byte, |
1391 |
string_multibyte, multibyte); |
string_multibyte, multibyte); |
1392 |
size_byte = nbytes; |
size_byte = nbytes; |
1393 |
|
str = tmp; |
1394 |
} |
} |
1395 |
} |
} |
1396 |
|
|