Mercurial > emacs
changeset 99983:3634b7edab06
Set inhibit-load-charset-map to t while preloading
files.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 27 Nov 2008 08:02:28 +0000 |
| parents | b24acf112b98 |
| children | 07596d9ff614 |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadup.el Thu Nov 27 08:02:15 2008 +0000 +++ b/lisp/loadup.el Thu Nov 27 08:02:28 2008 +0000 @@ -46,6 +46,12 @@ (message "Using load-path %s" load-path) +(if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) + (member (nth 4 command-line-args) '("dump" "bootstrap"))) + ;; To reduce the size of dumped Emacs, we avoid making huge + ;; char-tables. + (setq inhibit-load-charset-map t)) + ;; We don't want to have any undo records in the dumped Emacs. (set-buffer "*scratch*") (setq buffer-undo-list t) @@ -325,6 +331,7 @@ (equal (nth 4 command-line-args) "bootstrap")) (setcdr load-path nil)) +(setq inhibit-load-charset-map nil) (clear-charset-maps) (garbage-collect)