diff options
| author | Glenn Morris | 2009-09-26 20:02:42 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-09-26 20:02:42 +0000 |
| commit | 607b83077fbf53cfc8b44f4341b0e937ac601a82 (patch) | |
| tree | cdeb42debe8345da4086c1140d31c49456a3d00a | |
| parent | 00e2f46c20150c94d55513c717499926980fdd3e (diff) | |
| download | emacs-607b83077fbf53cfc8b44f4341b0e937ac601a82.tar.gz emacs-607b83077fbf53cfc8b44f4341b0e937ac601a82.zip | |
Comments.
| -rw-r--r-- | lisp/loadup.el | 32 |
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") |