34 |
(equal (nth 4 command-line-args) "bootstrap") |
(equal (nth 4 command-line-args) "bootstrap") |
35 |
;; in case CANNOT_DUMP |
;; in case CANNOT_DUMP |
36 |
(equal (nth 0 command-line-args) "../src/bootstrap-emacs")) |
(equal (nth 0 command-line-args) "../src/bootstrap-emacs")) |
37 |
(let ((path (car load-path))) |
(let ((dir (car load-path))) |
38 |
;; We'll probably overflow the pure space. |
;; We'll probably overflow the pure space. |
39 |
(setq purify-flag nil) |
(setq purify-flag nil) |
40 |
(setq load-path (list path |
(setq load-path (list dir |
41 |
(expand-file-name "emacs-lisp" path) |
(expand-file-name "emacs-lisp" dir) |
42 |
(expand-file-name "language" path) |
(expand-file-name "language" dir) |
43 |
(expand-file-name "international" path))))) |
(expand-file-name "international" dir) |
44 |
|
(expand-file-name "textmodes" dir))))) |
45 |
|
|
46 |
(message "Using load-path %s" load-path) |
(message "Using load-path %s" load-path) |
47 |
|
|
65 |
(load "format") |
(load "format") |
66 |
(load "bindings") |
(load "bindings") |
67 |
(setq load-source-file-function 'load-with-code-conversion) |
(setq load-source-file-function 'load-with-code-conversion) |
|
(load "simple") |
|
68 |
(load "files") |
(load "files") |
69 |
|
|
70 |
(load "cus-face") |
(load "cus-face") |
75 |
(message "%s" (garbage-collect)) |
(message "%s" (garbage-collect)) |
76 |
(load "loaddefs.el") ;Don't get confused if someone compiled this by mistake. |
(load "loaddefs.el") ;Don't get confused if someone compiled this by mistake. |
77 |
(message "%s" (garbage-collect)) |
(message "%s" (garbage-collect)) |
78 |
|
(load "simple") |
79 |
|
|
80 |
(load "help") |
(load "help") |
81 |
|
|
83 |
;; multilingual text. |
;; multilingual text. |
84 |
(load "international/mule-cmds") |
(load "international/mule-cmds") |
85 |
(load "case-table") |
(load "case-table") |
|
(load "international/characters") |
|
86 |
(load "international/utf-8") |
(load "international/utf-8") |
87 |
|
(load "international/utf-16") |
88 |
|
(load "international/characters") |
89 |
|
|
90 |
(let ((set-case-syntax-set-multibyte t)) |
(let ((set-case-syntax-set-multibyte t)) |
91 |
(load "international/latin-1") |
(load "international/latin-1") |
99 |
(load "language/chinese") |
(load "language/chinese") |
100 |
(load "language/cyrillic") |
(load "language/cyrillic") |
101 |
(load "language/indian") |
(load "language/indian") |
102 |
(load "language/devanagari") ; This should be loaded after indian. |
(load "language/devanagari") ; This should be loaded after indian. |
103 |
|
(load "language/malayalam") ; This should be loaded after indian. |
104 |
|
(load "language/tamil") ; This should be loaded after indian. |
105 |
(load "language/english") |
(load "language/english") |
106 |
(load "language/ethiopic") |
(load "language/ethiopic") |
107 |
(load "language/european") |
(load "language/european") |
121 |
(load "language/georgian") |
(load "language/georgian") |
122 |
|
|
123 |
(load "international/ucs-tables") |
(load "international/ucs-tables") |
|
(ucs-unify-8859 'encode-only) |
|
124 |
|
|
125 |
(update-coding-systems-internal) |
(update-coding-systems-internal) |
126 |
|
|