Mercurial > emacs
comparison lisp/loadup.el @ 111971:ca22802893d9
Remove code and comments related to lib-src/fns-*.el; long removed.
* Makefile.in (install-arch-dep, uninstall): Remove code relating to the
long absent lib-src/fns-*.el.
* lisp/loadup.el (symbol-file-load-history-loaded): Remove; unused.
Remove related, old, commented-out code.
* lisp/subr.el (symbol-file-load-history-loaded)
(load-symbol-file-load-history): Remove old, commented-out code.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 15 Dec 2010 00:16:53 -0800 |
| parents | 72ef880ed198 |
| children | 5a6a18bf3302 |
comparison
equal
deleted
inserted
replaced
| 111970:9570b2539308 | 111971:ca22802893d9 |
|---|---|
| 290 (condition-case nil | 290 (condition-case nil |
| 291 (Snarf-documentation "DOC") | 291 (Snarf-documentation "DOC") |
| 292 (error nil))) | 292 (error nil))) |
| 293 (message "Finding pointers to doc strings...done") | 293 (message "Finding pointers to doc strings...done") |
| 294 | 294 |
| 295 ;;;Note: You can cause additional libraries to be preloaded | 295 ;; Note: You can cause additional libraries to be preloaded |
| 296 ;;;by writing a site-init.el that loads them. | 296 ;; by writing a site-init.el that loads them. |
| 297 ;;;See also "site-load" above. | 297 ;; See also "site-load" above. |
| 298 (load "site-init" t) | 298 (load "site-init" t) |
| 299 (setq current-load-list nil) | 299 (setq current-load-list nil) |
| 300 | 300 |
| 301 ;; Write the value of load-history into fns-VERSION.el, | 301 ;; We keep the load-history data in PURE space. |
| 302 ;; then clear out load-history. | |
| 303 ;; (if (or (equal (nth 3 command-line-args) "dump") | |
| 304 ;; (equal (nth 4 command-line-args) "dump")) | |
| 305 ;; (let ((buffer-undo-list t)) | |
| 306 ;; (princ "(setq load-history\n" (current-buffer)) | |
| 307 ;; (princ " (nconc load-history\n" (current-buffer)) | |
| 308 ;; (princ " '(" (current-buffer)) | |
| 309 ;; (let ((tem load-history)) | |
| 310 ;; (while tem | |
| 311 ;; (prin1 (car tem) (current-buffer)) | |
| 312 ;; (terpri (current-buffer)) | |
| 313 ;; (if (cdr tem) | |
| 314 ;; (princ " " (current-buffer))) | |
| 315 ;; (setq tem (cdr tem)))) | |
| 316 ;; (princ ")))\n" (current-buffer)) | |
| 317 ;; (write-region (point-min) (point-max) | |
| 318 ;; (expand-file-name | |
| 319 ;; (cond | |
| 320 ;; ((eq system-type 'ms-dos) | |
| 321 ;; "../lib-src/fns.el") | |
| 322 ;; ((eq system-type 'windows-nt) | |
| 323 ;; (format "../../../lib-src/fns-%s.el" emacs-version)) | |
| 324 ;; (t | |
| 325 ;; (format "../lib-src/fns-%s.el" emacs-version))) | |
| 326 ;; invocation-directory)) | |
| 327 ;; (erase-buffer) | |
| 328 ;; (setq load-history nil)) | |
| 329 ;; (setq symbol-file-load-history-loaded t)) | |
| 330 ;; We don't use this fns-*.el file. Instead we keep the data in PURE space. | |
| 331 ;; Make sure that the spine of the list is not in pure space because it can | 302 ;; Make sure that the spine of the list is not in pure space because it can |
| 332 ;; be destructively mutated in lread.c:build_load_history. | 303 ;; be destructively mutated in lread.c:build_load_history. |
| 333 (setq load-history (mapcar 'purecopy load-history)) | 304 (setq load-history (mapcar 'purecopy load-history)) |
| 334 (setq symbol-file-load-history-loaded t) | |
| 335 | 305 |
| 336 (set-buffer-modified-p nil) | 306 (set-buffer-modified-p nil) |
| 337 | 307 |
| 338 ;; reset the load-path. See lread.c:init_lread why. | 308 ;; reset the load-path. See lread.c:init_lread why. |
| 339 (if (or (equal (nth 3 command-line-args) "bootstrap") | 309 (if (or (equal (nth 3 command-line-args) "bootstrap") |