![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to loadup.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp|
Return to loadup.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp |
1.1 ! root 1: ;Load up standardly loaded Lisp files for Emacs. ! 2: ;; This is loaded into a bare Emacs to make a dumpable one. ! 3: ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. ! 4: ! 5: ;; This file is part of GNU Emacs. ! 6: ! 7: ;; GNU Emacs is distributed in the hope that it will be useful, ! 8: ;; but WITHOUT ANY WARRANTY. No author or distributor ! 9: ;; accepts responsibility to anyone for the consequences of using it ! 10: ;; or for whether it serves any particular purpose or works at all, ! 11: ;; unless he says so in writing. Refer to the GNU Emacs General Public ! 12: ;; License for full details. ! 13: ! 14: ;; Everyone is granted permission to copy, modify and redistribute ! 15: ;; GNU Emacs, but only under the conditions described in the ! 16: ;; GNU Emacs General Public License. A copy of this license is ! 17: ;; supposed to have been given to you along with GNU Emacs so you ! 18: ;; can know your rights and responsibilities. It should be in a ! 19: ;; file named COPYING. Among other things, the copyright notice ! 20: ;; and this notice must be preserved on all copies. ! 21: ! 22: ! 23: (load "subr") ! 24: (garbage-collect) ! 25: (load "loaddefs.el") ;Don't get confused if someone compiled loaddefs by mistake. ! 26: (garbage-collect) ! 27: (load "simple") ! 28: (garbage-collect) ! 29: (load "help") ! 30: (garbage-collect) ! 31: (load "files") ! 32: (garbage-collect) ! 33: (load "indent") ! 34: (load "window") ! 35: (load "paths.el") ;Don't get confused if someone compiled paths by mistake. ! 36: (garbage-collect) ! 37: (load "startup") ! 38: (load "lisp") ! 39: (garbage-collect) ! 40: (load "page") ! 41: (load "register") ! 42: (garbage-collect) ! 43: (load "paragraphs") ! 44: (load "lisp-mode") ! 45: (garbage-collect) ! 46: (load "text-mode") ! 47: (load "fill") ! 48: (garbage-collect) ! 49: (load "c-mode") ! 50: (garbage-collect) ! 51: (load "isearch") ! 52: (garbage-collect) ! 53: (load "replace") ! 54: (if (eq system-type 'vax-vms) ! 55: (progn ! 56: (garbage-collect) ! 57: (load "vmsproc"))) ! 58: (garbage-collect) ! 59: (load "abbrev") ! 60: (garbage-collect) ! 61: (load "buff-menu") ! 62: (if (eq system-type 'vax-vms) ! 63: (progn ! 64: (garbage-collect) ! 65: (load "vms-patch"))) ! 66: ! 67: ;If you want additional libraries to be preloaded and their ! 68: ;doc strings kept in the DOC file rather than in core, ! 69: ;you may load them with a "site-load.el" file. ! 70: ;But you must also cause them to be scanned when the DOC file ! 71: ;is generated. For VMS, you must edit ../etc/makedoc.com. ! 72: ;For other systems, you must edit ../src/ymakefile. ! 73: (if (load "site-load" t) ! 74: (garbage-collect)) ! 75: ! 76: (load "version.el") ;Don't get confused if someone compiled version.el by mistake. ! 77: ! 78: ;; Note: all compiled Lisp files loaded above this point ! 79: ;; must be among the ones parsed by make-docfile ! 80: ;; to construct DOC. Any that are not processed ! 81: ;; for DOC will not have doc strings in the dumped Emacs. ! 82: ! 83: (message "Finding pointers to doc strings...") ! 84: (if (fboundp 'dump-emacs) ! 85: (let ((name emacs-version)) ! 86: (while (string-match "[^-+_.a-zA-Z0-9]+" name) ! 87: (setq name (concat (downcase (substring name 0 (match-beginning 0))) ! 88: "-" ! 89: (substring name (match-end 0))))) ! 90: (copy-file (expand-file-name "../etc/DOC") ! 91: (concat (expand-file-name "../etc/DOC-") name) ! 92: t) ! 93: (Snarf-documentation (concat "DOC-" name))) ! 94: (Snarf-documentation "DOC")) ! 95: (message "Finding pointers to doc strings...done") ! 96: ! 97: ;Note: You can cause additional libraries to be preloaded ! 98: ;by writing a site-init.el that loads them. ! 99: ;See also "site-load" above. ! 100: (load "site-init" t) ! 101: (garbage-collect) ! 102: ! 103: (if (or (equal (nth 3 command-line-args) "dump") ! 104: (equal (nth 4 command-line-args) "dump")) ! 105: (if (eq system-type 'vax-vms) ! 106: (progn ! 107: (message "Dumping data as file temacs.dump") ! 108: (dump-emacs "temacs.dump" "temacs") ! 109: (kill-emacs)) ! 110: (let ((name (concat "emacs-" emacs-version))) ! 111: (while (string-match "[^-+_.a-zA-Z0-9]+" name) ! 112: (setq name (concat (downcase (substring name 0 (match-beginning 0))) ! 113: "-" ! 114: (substring name (match-end 0))))) ! 115: (message "Dumping under names xemacs and %s" name)) ! 116: (condition-case () ! 117: (delete-file "xemacs") ! 118: (file-error nil)) ! 119: (dump-emacs "xemacs" "temacs") ! 120: ;; Recompute NAME now, so that it isn't set when we dump. ! 121: (let ((name (concat "emacs-" emacs-version))) ! 122: (while (string-match "[^-+_.a-zA-Z0-9]+" name) ! 123: (setq name (concat (downcase (substring name 0 (match-beginning 0))) ! 124: "-" ! 125: (substring name (match-end 0))))) ! 126: (add-name-to-file "xemacs" name t)) ! 127: (kill-emacs))) ! 128: ! 129: ;; Avoid error if user loads some more libraries now. ! 130: (setq purify-flag nil) ! 131: ! 132: ;; For machines with CANNOT_DUMP defined in config.h, ! 133: ;; this file must be loaded each time Emacs is run. ! 134: ;; So run the startup code now. ! 135: ! 136: (or (fboundp 'dump-emacs) ! 137: (eval top-level))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.