diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-27 17:15:13 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-27 17:15:13 -0400 |
| commit | 1ec4b7b25979ff9ea72a3ea35bf35d5882f467f7 (patch) | |
| tree | 7d3f3d3ef4a151e8a2b93b653692a4a652d2a720 /lisp/loadup.el | |
| parent | e309e2a56606ef774c5c366f74ea17ced46da065 (diff) | |
| download | emacs-1ec4b7b25979ff9ea72a3ea35bf35d5882f467f7.tar.gz emacs-1ec4b7b25979ff9ea72a3ea35bf35d5882f467f7.tar.bz2 emacs-1ec4b7b25979ff9ea72a3ea35bf35d5882f467f7.zip | |
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.
Diffstat (limited to 'lisp/loadup.el')
| -rw-r--r-- | lisp/loadup.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index d5841d16780..35681718976 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -61,7 +61,7 @@ (if (eq t purify-flag) ;; Hash consing saved around 11% of pure space in my tests. - (setq purify-flag (make-hash-table :test 'equal))) + (setq purify-flag (make-hash-table :test 'equal :size 70000))) (message "Using load-path %s" load-path) |