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, 5 insertions, 5 deletions

diff --git a/src/menu.c b/src/menu.c
index 8c624f758a9..ea8da7a9d62 100644
--- a/src/menu.c
+++ b/src/menu.c
@@ -390,7 +390,7 @@ single_menu_item (Lisp_Object key, Lisp_Object item, Lisp_Object dummy, void *sk
                       if (!submenu && SREF (tem, 0) != '\0'
                           && SREF (tem, 0) != '-')
                         ASET (menu_items, idx + MENU_ITEMS_ITEM_NAME,
-                              concat2 (build_string ("    "), tem));
+                              concat2 (build_local_string ("    "), tem));
                       idx += MENU_ITEMS_ITEM_LENGTH;
                     }
                 }
@@ -399,14 +399,14 @@ single_menu_item (Lisp_Object key, Lisp_Object item, Lisp_Object dummy, void *sk
 
           /* Calculate prefix, if any, for this item.  */
           if (EQ (type, QCtoggle))
-            prefix = build_string (NILP (selected) ? "[ ] " : "[X] ");
+            prefix = build_local_string (NILP (selected) ? "[ ] " : "[X] ");
           else if (EQ (type, QCradio))
-            prefix = build_string (NILP (selected) ? "( ) " : "(*) ");
+            prefix = build_local_string (NILP (selected) ? "( ) " : "(*) ");
         }
       /* Not a button. If we have earlier buttons, then we need a prefix.  */
       else if (!skp->notbuttons && SREF (item_string, 0) != '\0'
                && SREF (item_string, 0) != '-')
-        prefix = build_string ("    ");
+        prefix = build_local_string ("    ");
 
       if (!NILP (prefix))
         item_string = concat2 (prefix, item_string);
@@ -416,7 +416,7 @@ single_menu_item (Lisp_Object key, Lisp_Object item, Lisp_Object dummy, void *sk
        || FRAME_MSDOS_P (XFRAME (Vmenu_updating_frame)))
       && !NILP (map))
     /* Indicate visually that this is a submenu.  */
-    item_string = concat2 (item_string, build_string (" >"));
+    item_string = concat2 (item_string, build_local_string (" >"));
 
   push_menu_item (item_string, enabled, key,
                   AREF (item_properties, ITEM_PROPERTY_DEF),