Mercurial > emacs
changeset 88399:c93a7728939b
Don't load "international/utf-8". Don't call
update-coding-systems-internal. Bind coding-system-for-write to
`utf-8' while writing fns-XXX.el. Call clear-charset-maps before
dumping.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 01 Mar 2002 02:00:32 +0000 |
| parents | d8c9fc60016e |
| children | 014f40eb1c88 |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadup.el Fri Mar 01 01:59:51 2002 +0000 +++ b/lisp/loadup.el Fri Mar 01 02:00:32 2002 +0000 @@ -57,7 +57,7 @@ (load "map-ynp") (load "env") (load "cus-start") -(load "international/mule") +(load "international/mulel") (load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake. (load "format") (load "bindings") @@ -80,7 +80,6 @@ (load "international/mule-cmds") (load "case-table") (load "international/characters") -(load "international/utf-8") (let ((set-case-syntax-set-multibyte t)) (load "international/latin-1") @@ -112,7 +111,6 @@ (load "language/misc-lang") (load "language/utf-8-lang") (load "language/georgian") -(update-coding-systems-internal) (load "indent") (load "window") @@ -247,7 +245,8 @@ ;; then clear out load-history. (if (or (equal (nth 3 command-line-args) "dump") (equal (nth 4 command-line-args) "dump")) - (let ((buffer-undo-list t)) + (let ((buffer-undo-list t) + (coding-system-for-write 'utf-8)) (princ "(setq load-history\n" (current-buffer)) (princ " (nconc load-history\n" (current-buffer)) (princ " '(" (current-buffer)) @@ -279,6 +278,7 @@ (equal (nth 4 command-line-args) "bootstrap")) (setcdr load-path nil)) +(clear-charset-maps) (garbage-collect) ;;; At this point, we're ready to resume undo recording for scratch.