Mercurial > emacs

comparison lisp/loadup.el @ 44444:377def17ab0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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"))