Return to loadup.el CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp

Annotation of 43BSD/contrib/emacs/lisp/loadup.el, revision 1.1

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 Richard M. Stallman.
        !             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: (load "simple")
        !            25: (garbage-collect)
        !            26: (load "files")
        !            27: (garbage-collect)
        !            28: (load "indent")
        !            29: (load "window")
        !            30: (load "paths.el")  ;Don't get confused if someone compiled paths by mistake.
        !            31: (garbage-collect)
        !            32: (load "loaddefs.el")  ;Don't get confused if someone compiled loaddefs by mistake.
        !            33: (garbage-collect)
        !            34: (load "startup")
        !            35: (load "lisp")
        !            36: (garbage-collect)
        !            37: (load "page")
        !            38: (load "register")
        !            39: (garbage-collect)
        !            40: (load "paragraphs")
        !            41: (load "lisp-mode")
        !            42: (garbage-collect)
        !            43: (load "text-mode")
        !            44: (load "fill")
        !            45: (garbage-collect)
        !            46: (load "c-mode")
        !            47: (garbage-collect)
        !            48: (load "isearch")
        !            49: (garbage-collect)
        !            50: (load "replace")
        !            51: (garbage-collect)
        !            52: (load "abbrev")
        !            53: (garbage-collect)
        !            54: (load "buff-menu")
        !            55: 
        !            56: (load "version.el")  ;Don't get confused if someone compiled version.el by mistake.
        !            57: 
        !            58: ;; Note: all compiled Lisp files loaded above this point
        !            59: ;; must be among the ones parsed by make-docfile
        !            60: ;; to construct DOC.  Any that are not processed
        !            61: ;; for DOC will not have doc strings in the dumped Emacs.
        !            62: 
        !            63: (message "Finding pointers to doc strings...")
        !            64: (if (fboundp 'dump-emacs)
        !            65:     (progn
        !            66:       (copy-file (expand-file-name "../etc/DOC")
        !            67:                 (concat (expand-file-name "../etc/DOC.") emacs-version)
        !            68:                 t)
        !            69:       (Snarf-documentation (concat "DOC." emacs-version)))
        !            70:     (Snarf-documentation "DOC"))
        !            71: (message "Finding pointers to doc strings...done")
        !            72: 
        !            73: (lisp-interaction-mode)
        !            74: (load "site-init" t)
        !            75: (garbage-collect)
        !            76: 
        !            77: (if (or (equal (nth 3 command-line-args) "dump")
        !            78:        (equal (nth 4 command-line-args) "dump"))
        !            79:     (progn
        !            80:       (message "Dumping under names xemacs and emacs-%s" emacs-version)
        !            81:       (condition-case ()
        !            82:          (delete-file "xemacs")
        !            83:        (file-error nil))
        !            84:       (dump-emacs "xemacs" "temacs")
        !            85:       (add-name-to-file "xemacs" (concat "emacs-" emacs-version) t)
        !            86:       (kill-emacs)))
        !            87: 
        !            88: ;; Avoid error if user loads some more libraries now.
        !            89: (setq purify-flag nil)
        !            90: 
        !            91: ;; For machines with CANNOT_DUMP defined in config.h,
        !            92: ;; this file must be loaded each time Emacs is run.
        !            93: ;; So run the startup code now.
        !            94: 
        !            95: (or (fboundp 'dump-emacs)
        !            96:     (eval top-level))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.