/[emacs]/emacs/lisp/loadup.el
ViewVC logotype

Diff of /emacs/lisp/loadup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.123 by walters, Tue May 21 21:02:25 2002 UTC revision 1.123.2.1 by miles, Fri Apr 4 06:20:09 2003 UTC
# Line 34  Line 34 
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    
# Line 64  Line 65 
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")
# Line 75  Line 75 
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    
# Line 82  Line 83 
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")
# Line 97  Line 99 
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")
# Line 117  Line 121 
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    

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.123.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26