Get rid of all the manual purecopy calls in menu-bar definitions.

* lisp/loadup.el (purify-flag): Pre-grow the hash-table to reduce the
memory use.
* lisp/bindings.el (bindings--define-key): New function.
* lisp/vc/vc-hooks.el, lisp/replace.el, lisp/menu-bar.el:
* lisp/international/mule-cmds.el, lisp/emacs-lisp/lisp-mode.el:
* lisp/buff-menu.el, lisp/bookmark.el:
* bindings.el: Use it to purecopy define-key bindings.
* src/fns.c (maybe_resize_hash_table): Output message when growing the
purify-hashtable.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/fns.c b/src/fns.c
index 515cd28328b..f734520fedb 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3749,6 +3749,17 @@ maybe_resize_hash_table (struct Lisp_Hash_Table *h)
       if (INDEX_SIZE_BOUND < nsize)
         error ("Hash table too large to resize");
 
+#ifdef ENABLE_CHECKING
+      if (HASH_TABLE_P (Vpurify_flag)
+          && XHASH_TABLE (Vpurify_flag) == h)
+        {
+          Lisp_Object args[2];
+          args[0] = build_string ("Growing hash table to: %d");
+          args[1] = make_number (new_size);
+          Fmessage (2, args);
+        }
+#endif
+
       h->key_and_value = larger_vector (h->key_and_value,
                                         2 * (new_size - old_size), -1);
       h->next = larger_vector (h->next, new_size - old_size, -1);