Mercurial > emacs
comparison lisp/loadup.el @ 44444:377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
(fns-*.el): Don't use it anymore. Keep the load-history in purespace.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 08 Apr 2002 22:22:01 +0000 |
parents | 599660b79608 |
children | 88b67f986f64 |
comparison
equal
deleted
inserted
replaced
44443:9e6f2afa9f19 | 44444:377def17ab0f |
---|---|
112 (load "language/misc-lang") | 112 (load "language/misc-lang") |
113 (load "language/utf-8-lang") | 113 (load "language/utf-8-lang") |
114 (load "language/georgian") | 114 (load "language/georgian") |
115 | 115 |
116 (load "international/ucs-tables") | 116 (load "international/ucs-tables") |
117 (unify-8859-on-encoding-mode 1) | 117 (ucs-unify-8859 'encode-only) |
118 | 118 |
119 (update-coding-systems-internal) | 119 (update-coding-systems-internal) |
120 | 120 |
121 (load "indent") | 121 (load "indent") |
122 (load "window") | 122 (load "window") |
246 (load "site-init" t) | 246 (load "site-init" t) |
247 (setq current-load-list nil) | 247 (setq current-load-list nil) |
248 | 248 |
249 ;; Write the value of load-history into fns-VERSION.el, | 249 ;; Write the value of load-history into fns-VERSION.el, |
250 ;; then clear out load-history. | 250 ;; then clear out load-history. |
251 (if (or (equal (nth 3 command-line-args) "dump") | 251 ;; (if (or (equal (nth 3 command-line-args) "dump") |
252 (equal (nth 4 command-line-args) "dump")) | 252 ;; (equal (nth 4 command-line-args) "dump")) |
253 (let ((buffer-undo-list t)) | 253 ;; (let ((buffer-undo-list t)) |
254 (princ "(setq load-history\n" (current-buffer)) | 254 ;; (princ "(setq load-history\n" (current-buffer)) |
255 (princ " (nconc load-history\n" (current-buffer)) | 255 ;; (princ " (nconc load-history\n" (current-buffer)) |
256 (princ " '(" (current-buffer)) | 256 ;; (princ " '(" (current-buffer)) |
257 (let ((tem load-history)) | 257 ;; (let ((tem load-history)) |
258 (while tem | 258 ;; (while tem |
259 (prin1 (car tem) (current-buffer)) | 259 ;; (prin1 (car tem) (current-buffer)) |
260 (terpri (current-buffer)) | 260 ;; (terpri (current-buffer)) |
261 (if (cdr tem) | 261 ;; (if (cdr tem) |
262 (princ " " (current-buffer))) | 262 ;; (princ " " (current-buffer))) |
263 (setq tem (cdr tem)))) | 263 ;; (setq tem (cdr tem)))) |
264 (princ ")))\n" (current-buffer)) | 264 ;; (princ ")))\n" (current-buffer)) |
265 (write-region (point-min) (point-max) | 265 ;; (write-region (point-min) (point-max) |
266 (expand-file-name | 266 ;; (expand-file-name |
267 (cond | 267 ;; (cond |
268 ((eq system-type 'ms-dos) | 268 ;; ((eq system-type 'ms-dos) |
269 "../lib-src/fns.el") | 269 ;; "../lib-src/fns.el") |
270 ((eq system-type 'windows-nt) | 270 ;; ((eq system-type 'windows-nt) |
271 (format "../../../lib-src/fns-%s.el" emacs-version)) | 271 ;; (format "../../../lib-src/fns-%s.el" emacs-version)) |
272 (t | 272 ;; (t |
273 (format "../lib-src/fns-%s.el" emacs-version))) | 273 ;; (format "../lib-src/fns-%s.el" emacs-version))) |
274 invocation-directory)) | 274 ;; invocation-directory)) |
275 (erase-buffer) | 275 ;; (erase-buffer) |
276 (setq load-history nil)) | 276 ;; (setq load-history nil)) |
277 (setq symbol-file-load-history-loaded t)) | 277 ;; (setq symbol-file-load-history-loaded t)) |
278 ;; We don't use this fns-*.el file. Instead we keep the data in PURE space. | |
279 ;; Make sure that the spine of the list is not in pure space because it can | |
280 ;; be destructively mutated in lread.c:build_load_history. | |
281 (setq load-history (mapcar 'purecopy load-history)) | |
282 (setq symbol-file-load-history-loaded t) | |
283 | |
278 (set-buffer-modified-p nil) | 284 (set-buffer-modified-p nil) |
279 | 285 |
280 ;; reset the load-path. See lread.c:init_lread why. | 286 ;; reset the load-path. See lread.c:init_lread why. |
281 (if (or (equal (nth 3 command-line-args) "bootstrap") | 287 (if (or (equal (nth 3 command-line-args) "bootstrap") |
282 (equal (nth 4 command-line-args) "bootstrap")) | 288 (equal (nth 4 command-line-args) "bootstrap")) |