aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2009-09-26 20:02:42 +0000
committerGlenn Morris2009-09-26 20:02:42 +0000
commit607b83077fbf53cfc8b44f4341b0e937ac601a82 (patch)
treecdeb42debe8345da4086c1140d31c49456a3d00a
parent00e2f46c20150c94d55513c717499926980fdd3e (diff)
downloademacs-607b83077fbf53cfc8b44f4341b0e937ac601a82.tar.gz
emacs-607b83077fbf53cfc8b44f4341b0e937ac601a82.zip
Comments.
-rw-r--r--lisp/loadup.el32
1 files changed, 23 insertions, 9 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 63f7972b700..b531fd02b43 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -25,15 +25,35 @@
25 25
26;; This is loaded into a bare Emacs to make a dumpable one. 26;; This is loaded into a bare Emacs to make a dumpable one.
27 27
28;; If you add/remove Lisp files to be loaded here, consider the
29;; following issues:
30
31;; i) Any file loaded on all platforms should appear in $lisp
32;; and $shortlisp in src/Makefile.in. Use the .el or .elc version as
33;; appropriate.
34
35;; ii) Any file that is only loaded on some platforms should appear
36;; in the version of $lisp in the generated Makefile on that platform.
37;; At the present time, this is achieved by use of #ifdefs.
38;; It should also appear in $SOME_MACHINE_LISP on all platforms.
39
40;; The above steps ensure both that the Lisp files are compiled (if
41;; necessary) before the emacs executable is dumped, and that they are
42;; passed to make-docfile. (Any that are not processed for DOC will
43;; not have doc strings in the dumped Emacs.) Because of this:
44
45;; iii) If the file is loaded uncompiled, it should (where possible)
46;; obey the doc-string conventions expected by make-docfile.
47
28;;; Code: 48;;; Code:
29 49
30;; add subdirectories to the load-path for files that might 50;; Add subdirectories to the load-path for files that might get
31;; get autoloaded when bootstrapping 51;; autoloaded when bootstrapping.
32(if (or (equal (nth 3 command-line-args) "bootstrap") 52(if (or (equal (nth 3 command-line-args) "bootstrap")
33 (equal (nth 4 command-line-args) "bootstrap") 53 (equal (nth 4 command-line-args) "bootstrap")
34 (equal (nth 3 command-line-args) "unidata-gen.el") 54 (equal (nth 3 command-line-args) "unidata-gen.el")
35 (equal (nth 4 command-line-args) "unidata-gen-files") 55 (equal (nth 4 command-line-args) "unidata-gen-files")
36 ;; in case CANNOT_DUMP 56 ;; In case CANNOT_DUMP.
37 (equal (nth 0 command-line-args) "../src/bootstrap-emacs")) 57 (equal (nth 0 command-line-args) "../src/bootstrap-emacs"))
38 (let ((dir (car load-path))) 58 (let ((dir (car load-path)))
39 ;; We'll probably overflow the pure space. 59 ;; We'll probably overflow the pure space.
@@ -242,12 +262,6 @@
242 (format "%s.%d" 262 (format "%s.%d"
243 emacs-version (if versions (1+ (apply 'max versions)) 1))))) 263 emacs-version (if versions (1+ (apply 'max versions)) 1)))))
244 264
245;; Note: all compiled Lisp files loaded above this point
246;; must be among the ones parsed by make-docfile
247;; to construct DOC. Any that are not processed
248;; for DOC will not have doc strings in the dumped Emacs.
249;; Note also that any uncompiled files that are loaded should
250;; have doc-strings that conform to the make-docfile convention.
251 265
252(message "Finding pointers to doc strings...") 266(message "Finding pointers to doc strings...")
253(if (or (equal (nth 3 command-line-args) "dump") 267(if (or (equal (nth 3 command-line-args) "dump")