-#ifdef USE_LOCAL_ALLOCATORS
-
-/* Initialize the string S from DATA and SIZE. S must be followed by
- SIZE + 1 bytes of memory that can be used. Return S tagged as a
- Lisp object. */
-
-Lisp_Object
-local_string_init (struct Lisp_String *s, char const *data, ptrdiff_t size)
-{
- unsigned char *data_copy = (unsigned char *) (s + 1);
- parse_str_as_multibyte ((unsigned char const *) data,
- size, &s->size, &s->size_byte);
- if (size == s->size || size != s->size_byte)
- {
- s->size = size;
- s->size_byte = -1;
- }
- s->intervals = NULL;
- s->data = data_copy;
- memcpy (data_copy, data, size);
- data_copy[size] = '\0';
- return make_lisp_ptr (s, Lisp_String);
-}
-
-#endif
-
-
-/* Make an unibyte string from LENGTH bytes at CONTENTS. */