/[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.118 by jasonr, Sun Jan 20 15:35:09 2002 UTC revision 1.118.2.1 by handa, Fri Mar 1 02:00:32 2002 UTC
# Line 57  Line 57 
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")
# Line 80  Line 80 
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")
# Line 112  Line 111 
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")
# Line 247  Line 245 
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))
# Line 279  Line 278 
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.

Legend:
Removed from v.1.118  
changed lines
  Added in v.1.118.2.1

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