aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPhillip Lord2017-03-07 13:22:32 +0000
committerPhillip Lord2017-03-07 13:49:31 +0000
commit41ed3c3da68754442dadfc3be1dc0160f6549ed2 (patch)
treeee17ab995c7eab6a8a3a96f34e15fcaa316590cf
parent8f58747a878941661e2f0f667e18620cf9b632ff (diff)
downloademacs-41ed3c3da68754442dadfc3be1dc0160f6549ed2.tar.gz
emacs-41ed3c3da68754442dadfc3be1dc0160f6549ed2.zip
Revert "Remove conditional includes from bootstrap"
This reverts commit 1b946305182312faa7fcd838caf55dcb07b2ab04. This commit has been reverted because the new mechanism was too sensitive to changes in the lisp source, generation of new ldefs-boot files was platform specific and resulted in warnings about undefined variables. See also 11436e2890d.
-rw-r--r--lisp/ldefs-boot-auto.el8
-rw-r--r--lisp/ldefs-boot-manual.el6
-rw-r--r--lisp/loadup.el122
3 files changed, 58 insertions, 78 deletions
diff --git a/lisp/ldefs-boot-auto.el b/lisp/ldefs-boot-auto.el
index 66147173d50..020c6707a00 100644
--- a/lisp/ldefs-boot-auto.el
+++ b/lisp/ldefs-boot-auto.el
@@ -87,14 +87,7 @@
87(autoload 'help-xref-button "help-mode" nil nil nil) 87(autoload 'help-xref-button "help-mode" nil nil nil)
88(autoload 'hi-lock-face-buffer "hi-lock" nil nil nil) 88(autoload 'hi-lock-face-buffer "hi-lock" nil nil nil)
89(autoload 'html-mode "sgml-mode" nil nil nil) 89(autoload 'html-mode "sgml-mode" nil nil nil)
90(autoload 'image-type "image" nil nil nil)
91(autoload 'image-type-auto-detected-p "image" nil nil nil)
92(autoload 'image-type-available-p "image" nil nil nil) 90(autoload 'image-type-available-p "image" nil nil nil)
93(autoload 'image-type-from-buffer "image" nil nil nil)
94(autoload 'image-type-from-data "image" nil nil nil)
95(autoload 'image-type-from-file-header "image" nil nil nil)
96(autoload 'image-type-from-file-name "image" nil nil nil)
97(autoload 'imagemagick-register-types "image" nil nil nil)
98(autoload 'info "info" nil nil nil) 91(autoload 'info "info" nil nil nil)
99(autoload 'info-complete-symbol "info-look" nil nil nil) 92(autoload 'info-complete-symbol "info-look" nil nil nil)
100(autoload 'info-emacs-manual "info" nil nil nil) 93(autoload 'info-emacs-manual "info" nil nil nil)
@@ -139,7 +132,6 @@
139(autoload 'time-to-days "time-date" nil nil nil) 132(autoload 'time-to-days "time-date" nil nil nil)
140(autoload 'timezone-make-date-arpa-standard "timezone" nil nil nil) 133(autoload 'timezone-make-date-arpa-standard "timezone" nil nil nil)
141(autoload 'tmm-menubar "tmm" nil nil nil) 134(autoload 'tmm-menubar "tmm" nil nil nil)
142(autoload 'tool-bar-add-item-from-menu "tool-bar" nil nil nil)
143(autoload 'truncate-string-to-width "mule-util" nil nil nil) 135(autoload 'truncate-string-to-width "mule-util" nil nil nil)
144(autoload 'ucs-normalize-HFS-NFC-region "ucs-normalize" nil nil nil) 136(autoload 'ucs-normalize-HFS-NFC-region "ucs-normalize" nil nil nil)
145(autoload 'ucs-normalize-HFS-NFD-region "ucs-normalize" nil nil nil) 137(autoload 'ucs-normalize-HFS-NFD-region "ucs-normalize" nil nil nil)
diff --git a/lisp/ldefs-boot-manual.el b/lisp/ldefs-boot-manual.el
index 2f6e3fd2094..183703d25e8 100644
--- a/lisp/ldefs-boot-manual.el
+++ b/lisp/ldefs-boot-manual.el
@@ -10,12 +10,6 @@
10;; during the byte-compile phase 10;; during the byte-compile phase
11(defvar electric-pair-text-pairs '((34 . 34))) 11(defvar electric-pair-text-pairs '((34 . 34)))
12 12
13;; These two autoloads are needed for files.el. They are only used on
14;; their respective platforms so do not get added to
15;; ldefs-boot-auto.el when it is generated on a different platform.
16(autoload 'dos-convert-standard-filename "dos-fns.el" nil nil nil)
17(autoload 'w32-convert-standard-filename "w32-fns.el" nil nil nil)
18
19 13
20(load "ldefs-boot-auto.el") 14(load "ldefs-boot-auto.el")
21 15
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 8780ea6edb5..5b19b05a82e 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -230,11 +230,8 @@
230(load "jit-lock") 230(load "jit-lock")
231 231
232(load "mouse") 232(load "mouse")
233 233(if (boundp 'x-toolkit-scroll-bars)
234(unless (equal (member "bootstrap" command-line-args) '("bootstrap")) 234 (load "scroll-bar"))
235 (if (boundp 'x-toolkit-scroll-bars)
236 (load "scroll-bar")))
237
238(load "select") 235(load "select")
239(load "emacs-lisp/timer") 236(load "emacs-lisp/timer")
240(load "isearch") 237(load "isearch")
@@ -256,62 +253,61 @@
256(load "emacs-lisp/tabulated-list") 253(load "emacs-lisp/tabulated-list")
257(load "buff-menu") 254(load "buff-menu")
258 255
259(unless (equal (member "bootstrap" command-line-args) '("bootstrap")) 256(if (fboundp 'x-create-frame)
260 (if (fboundp 'x-create-frame) 257 (progn
261 (progn 258 (load "fringe")
262 (load "fringe") 259 ;; Needed by `imagemagick-register-types'
263 ;; Needed by `imagemagick-register-types' 260 (load "emacs-lisp/regexp-opt")
264 (load "emacs-lisp/regexp-opt") 261 (load "image")
265 (load "image") 262 (load "international/fontset")
266 (load "international/fontset") 263 (load "dnd")
267 (load "dnd") 264 (load "tool-bar")))
268 (load "tool-bar"))) 265
269 266(if (featurep 'dynamic-setting)
270 (if (featurep 'dynamic-setting) 267 (load "dynamic-setting"))
271 (load "dynamic-setting")) 268
272 269(if (featurep 'x)
273 (if (featurep 'x) 270 (progn
274 (progn 271 (load "x-dnd")
275 (load "x-dnd") 272 (load "term/common-win")
276 (load "term/common-win") 273 (load "term/x-win")))
277 (load "term/x-win"))) 274
278 275(if (or (eq system-type 'windows-nt)
279 (if (or (eq system-type 'windows-nt) 276 (featurep 'w32))
280 (featurep 'w32)) 277 (progn
281 (progn 278 (load "term/common-win")
282 (load "term/common-win") 279 (load "w32-vars")
283 (load "w32-vars") 280 (load "term/w32-win")
284 (load "term/w32-win") 281 (load "disp-table")
285 (load "disp-table") 282 (when (eq system-type 'windows-nt)
286 (when (eq system-type 'windows-nt) 283 (load "w32-fns")
287 (load "w32-fns")
288 (load "ls-lisp")
289 (load "dos-w32"))))
290 (if (eq system-type 'ms-dos)
291 (progn
292 (load "dos-w32")
293 (load "dos-fns")
294 (load "dos-vars")
295 ;; Don't load term/common-win: it isn't appropriate for the `pc'
296 ;; ``window system'', which generally behaves like a terminal.
297 (load "term/internal")
298 (load "term/pc-win")
299 (load "ls-lisp") 284 (load "ls-lisp")
300 (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el 285 (load "dos-w32"))))
301 (if (featurep 'ns) 286(if (eq system-type 'ms-dos)
302 (progn 287 (progn
303 (load "term/common-win") 288 (load "dos-w32")
304 ;; Don't load ucs-normalize.el unless uni-*.el files were 289 (load "dos-fns")
305 ;; already produced, because it needs uni-*.el files that might 290 (load "dos-vars")
306 ;; not be built early enough during bootstrap. 291 ;; Don't load term/common-win: it isn't appropriate for the `pc'
307 (when (load-history-filename-element "charprop\\.el") 292 ;; ``window system'', which generally behaves like a terminal.
308 (load "international/mule-util") 293 (load "term/internal")
309 (load "international/ucs-normalize") 294 (load "term/pc-win")
310 (load "term/ns-win")))) 295 (load "ls-lisp")
311 (if (fboundp 'x-create-frame) 296 (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el
312 ;; Do it after loading term/foo-win.el since the value of the 297(if (featurep 'ns)
313 ;; mouse-wheel-*-event vars depends on those files being loaded or not. 298 (progn
314 (load "mwheel"))) 299 (load "term/common-win")
300 ;; Don't load ucs-normalize.el unless uni-*.el files were
301 ;; already produced, because it needs uni-*.el files that might
302 ;; not be built early enough during bootstrap.
303 (when (load-history-filename-element "charprop\\.el")
304 (load "international/mule-util")
305 (load "international/ucs-normalize")
306 (load "term/ns-win"))))
307(if (fboundp 'x-create-frame)
308 ;; Do it after loading term/foo-win.el since the value of the
309 ;; mouse-wheel-*-event vars depends on those files being loaded or not.
310 (load "mwheel"))
315;; Preload some constants and floating point functions. 311;; Preload some constants and floating point functions.
316(load "emacs-lisp/float-sup") 312(load "emacs-lisp/float-sup")
317 313
@@ -321,10 +317,8 @@
321(load "electric") 317(load "electric")
322(load "emacs-lisp/eldoc") 318(load "emacs-lisp/eldoc")
323(load "cus-start") ;Late to reduce customize-rogue (needs loaddefs.el anyway) 319(load "cus-start") ;Late to reduce customize-rogue (needs loaddefs.el anyway)
324 320(if (not (eq system-type 'ms-dos))
325(unless (equal (member "bootstrap" command-line-args) '("bootstrap")) 321 (load "tooltip"))
326 (if (not (eq system-type 'ms-dos))
327 (load "tooltip")))
328 322
329;; This file doesn't exist when building a development version of Emacs 323;; This file doesn't exist when building a development version of Emacs
330;; from the repository. It is generated just after temacs is built. 324;; from the repository. It is generated just after temacs is built.