If USE_LOCAL_ALLOCATORS, allocate some Lisp objects on stack.

* lisp.h (local_cons, local_list1, local_list2, local_list3)
[USE_LOCAL_ALLOCATORS]: New macros.
[!USE_LOCAL_ALLOCATORS]: Fall back to regular functions.
(build_local_string): Avoid argument name expansion clash with
make_local_string.
* alloc.c (toplevel)
[USE_LOCAL_ALLOCATORS && GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS]:
Preprocessor guard to avoid impossible configuration.
* charset.c (Ffind_charset_region, Ffind_charset_string):
Use make_local_vector.
* lread.c (read1, substitute_object_recurse): Use scoped_cons.
* textprop.c (Fput_text_property, Fadd_face_text_property):
Use scoped_list2.
(copy_text_properties): Use local_cons and local_list3.
* chartab.c (uniprop_table):
* data.c (wrong_choice, wrong_range):
* doc.c (get_doc_string):
* editfns.c (format2):
* fileio.c (Fexpand_file_name, auto_save_error):
* fns.c (Fyes_or_no_p):
* font.c (font_parse_xlfd, font_parse_family_registry, font_add_log):
* fontset.c (Fset_fontset_font):
* keyboard.c (echo_add_key, echo_dash, parse_menu_item)
(read_char_minibuf_menu_prompt):
* keymap.c (silly_event_symbol_error, describe_vector):
* menu.c (single_menu_item):
* minibuf.c (Fread_buffer):
* process.c (status_message, Fformat_network_address)
(server_accept_connection): Use make_local_string and
build_local_string.  Prefer compound literals where appropriate.

1 files changed, 7 insertions, 7 deletions

diff --git a/src/font.c b/src/font.c
index 412cd3f938d..57cc4aa0b2b 100644
--- a/src/font.c
+++ b/src/font.c
@@ -1190,12 +1190,12 @@ font_parse_xlfd (char *name, ptrdiff_t len, Lisp_Object font)
         {
           val = prop[XLFD_ENCODING_INDEX];
           if (! NILP (val))
-            val = concat2 (build_string ("*-"), SYMBOL_NAME (val));
+            val = concat2 (build_local_string ("*-"), SYMBOL_NAME (val));
         }
       else if (NILP (prop[XLFD_ENCODING_INDEX]))
-        val = concat2 (SYMBOL_NAME (val), build_string ("-*"));
+        val = concat2 (SYMBOL_NAME (val), build_local_string ("-*"));
       else
-        val = concat3 (SYMBOL_NAME (val), build_string ("-"),
+        val = concat3 (SYMBOL_NAME (val), build_local_string ("-"),
                        SYMBOL_NAME (prop[XLFD_ENCODING_INDEX]));
       if (! NILP (val))
         ASET (font, FONT_REGISTRY_INDEX, Fintern (val, Qnil));
@@ -1793,9 +1793,9 @@ font_parse_family_registry (Lisp_Object family, Lisp_Object registry, Lisp_Objec
       if (! p1)
         {
           if (SDATA (registry)[len - 1] == '*')
-            registry = concat2 (registry, build_string ("-*"));
+            registry = concat2 (registry, build_local_string ("-*"));
           else
-            registry = concat2 (registry, build_string ("*-*"));
+            registry = concat2 (registry, build_local_string ("*-*"));
         }
       registry = Fdowncase (registry);
       ASET (font_spec, FONT_REGISTRY_INDEX, Fintern (registry, Qnil));
@@ -5022,7 +5022,7 @@ font_add_log (const char *action, Lisp_Object arg, Lisp_Object result)
   if (FONTP (arg))
     {
       Lisp_Object tail, elt;
-      Lisp_Object equalstr = build_string ("=");
+      Lisp_Object equalstr = build_local_string ("=");
 
       val = Ffont_xlfd_name (arg, Qt);
       for (tail = AREF (arg, FONT_EXTRA_INDEX); CONSP (tail);
@@ -5056,7 +5056,7 @@ font_add_log (const char *action, Lisp_Object arg, Lisp_Object result)
       val = Ffont_xlfd_name (result, Qt);
       if (! FONT_SPEC_P (result))
         val = concat3 (SYMBOL_NAME (AREF (result, FONT_TYPE_INDEX)),
-                       build_string (":"), val);
+                       build_local_string (":"), val);
       result = val;
     }
   else if (CONSP (result))