57 |
(load "map-ynp") |
(load "map-ynp") |
58 |
(load "env") |
(load "env") |
59 |
(load "cus-start") |
(load "cus-start") |
60 |
(load "international/mule") |
(load "international/mulel") |
61 |
(load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake. |
(load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake. |
62 |
(load "format") |
(load "format") |
63 |
(load "bindings") |
(load "bindings") |
80 |
(load "international/mule-cmds") |
(load "international/mule-cmds") |
81 |
(load "case-table") |
(load "case-table") |
82 |
(load "international/characters") |
(load "international/characters") |
|
(load "international/utf-8") |
|
83 |
|
|
84 |
(let ((set-case-syntax-set-multibyte t)) |
(let ((set-case-syntax-set-multibyte t)) |
85 |
(load "international/latin-1") |
(load "international/latin-1") |
111 |
(load "language/misc-lang") |
(load "language/misc-lang") |
112 |
(load "language/utf-8-lang") |
(load "language/utf-8-lang") |
113 |
(load "language/georgian") |
(load "language/georgian") |
|
(update-coding-systems-internal) |
|
114 |
|
|
115 |
(load "indent") |
(load "indent") |
116 |
(load "window") |
(load "window") |
245 |
;; then clear out load-history. |
;; then clear out load-history. |
246 |
(if (or (equal (nth 3 command-line-args) "dump") |
(if (or (equal (nth 3 command-line-args) "dump") |
247 |
(equal (nth 4 command-line-args) "dump")) |
(equal (nth 4 command-line-args) "dump")) |
248 |
(let ((buffer-undo-list t)) |
(let ((buffer-undo-list t) |
249 |
|
(coding-system-for-write 'utf-8)) |
250 |
(princ "(setq load-history\n" (current-buffer)) |
(princ "(setq load-history\n" (current-buffer)) |
251 |
(princ " (nconc load-history\n" (current-buffer)) |
(princ " (nconc load-history\n" (current-buffer)) |
252 |
(princ " '(" (current-buffer)) |
(princ " '(" (current-buffer)) |
278 |
(equal (nth 4 command-line-args) "bootstrap")) |
(equal (nth 4 command-line-args) "bootstrap")) |
279 |
(setcdr load-path nil)) |
(setcdr load-path nil)) |
280 |
|
|
281 |
|
(clear-charset-maps) |
282 |
(garbage-collect) |
(garbage-collect) |
283 |
|
|
284 |
;;; At this point, we're ready to resume undo recording for scratch. |
;;; At this point, we're ready to resume undo recording for scratch. |