Mercurial > hg > xemacs-beta

comparison lisp/dumped-lisp.el @ 5292:e4305eb6fb8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge some permissions corrections to trunk.
author Stephen J. Turnbull <stephen@xemacs.org>
date Mon, 18 Oct 2010 23:21:23 +0900
parents d27c1ee1943b
children 75469840109b b9167d522a9a
comparison
equal deleted inserted replaced
5291:85bd42a1e544 5292:e4305eb6fb8c
21 (list 21 (list
22 ;; do not defcustom any variables in these files 22 ;; do not defcustom any variables in these files
23 23
24 "backquote" ; needed for defsubst etc. 24 "backquote" ; needed for defsubst etc.
25 "bytecomp-runtime" ; define defsubst 25 "bytecomp-runtime" ; define defsubst
26 "subr" ; load the most basic Lisp functions
27 "cl"
28 "cl-extra" ; also loads cl-macs if we're running interpreted.
29 "cl-seq"
30 "post-gc"
31 "version"
32 "custom" ; Before the world so everything can be customized
33 "cus-start" ; for customization of builtin variables
26 "find-paths" 34 "find-paths"
27 "packages" ; Bootstrap run-time lisp environment 35 "packages"
28 "setup-paths" 36 "setup-paths"
29 37 "replace"
30 ;; use custom-declare-variable-early, not defcustom, in these files
31
32 "subr" ; load the most basic Lisp functions
33 "post-gc"
34 "replace" ; match-string used in version.el.
35
36 "version"
37
38 "cl"
39 "cl-extra"
40 "cl-seq"
41 "widget" 38 "widget"
42 "custom" ; Before the world so everything can be
43 ; customized
44 "cus-start" ; for customization of builtin variables
45
46 ;; OK, you can use defcustom from here on
47
48 "cmdloop" 39 "cmdloop"
49 "keymap" 40 "keymap"
50 "syntax" 41 "syntax"
51 "device" 42 "device"
52 "console" 43 "console"
298 ;; "sun-eos-menubar")) 289 ;; "sun-eos-menubar"))
299 "loaddefs" ; <=== autoloads get loaded here 290 "loaddefs" ; <=== autoloads get loaded here
300 )) 291 ))
301 292
302 (setq preloaded-file-list 293 (setq preloaded-file-list
303 (apply #'nconc 294 (mapcan #'(lambda (x) (if (listp x) x (list x))) preloaded-file-list))
304 (mapcar #'(lambda (x)
305 (if (listp x) x (list x)))
306 preloaded-file-list)))