|
Lines 46-56
Link Here
|
| 46 |
|
46 |
|
| 47 |
(message "Using load-path %s" load-path) |
47 |
(message "Using load-path %s" load-path) |
| 48 |
|
48 |
|
| 49 |
(if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) |
49 |
;; (if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) |
| 50 |
(member (nth 4 command-line-args) '("dump" "bootstrap"))) |
50 |
;; (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
| 51 |
;; To reduce the size of dumped Emacs, we avoid making huge |
51 |
;; ;; To reduce the size of dumped Emacs, we avoid making huge |
| 52 |
;; char-tables. |
52 |
;; ;; char-tables. |
| 53 |
(setq inhibit-load-charset-map t)) |
53 |
;; (setq inhibit-load-charset-map t)) |
| 54 |
|
54 |
|
| 55 |
;; We don't want to have any undo records in the dumped Emacs. |
55 |
;; We don't want to have any undo records in the dumped Emacs. |
| 56 |
(set-buffer "*scratch*") |
56 |
(set-buffer "*scratch*") |
