Mercurial > hg > xemacs-beta

comparison lisp/prim/loadup.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children 8ff55ebd4be9
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
106 ;; duplicate doc string warnings, SparcWorks uses a separate 106 ;; duplicate doc string warnings, SparcWorks uses a separate
107 ;; autoloads file with the dumped packages removed. 107 ;; autoloads file with the dumped packages removed.
108 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!! 108 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
109 ;; So just make loaddefs-eos go away... 109 ;; So just make loaddefs-eos go away...
110 ;;(load-gc (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs")) 110 ;;(load-gc (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
111 (load-gc "font") ; required by widget
112 (load-gc "widget") 111 (load-gc "widget")
113 (load-gc "custom") ; Before loaddefs so that defcustom exists 112 (load-gc "custom") ; Before loaddefs so that defcustom exists
114 (load-gc "loaddefs") 113 (load-gc "custom-xmas")
114 (load-gc "loaddefs") ; <=== autoloads get put here
115 (load-gc "misc") 115 (load-gc "misc")
116 (load-gc "profile") 116 (load-gc "profile")
117 (load-gc "help") 117 (load-gc "help")
118 ;; (load-gc "hyper-apropos") Soon... 118 ;; (load-gc "hyper-apropos") Soon...
119 (when (not (featurep 'mule)) 119 (when (not (featurep 'mule))
156 (load-gc "disp-table"))) ; needed to setup ibm-pc char set, 156 (load-gc "disp-table"))) ; needed to setup ibm-pc char set,
157 ; see internal.el 157 ; see internal.el
158 (when (featurep 'lisp-float-type) 158 (when (featurep 'lisp-float-type)
159 (load-gc "float-sup")) 159 (load-gc "float-sup"))
160 (load-gc "itimer") ; for vars auto-save-timeout and auto-gc-threshold 160 (load-gc "itimer") ; for vars auto-save-timeout and auto-gc-threshold
161 (load-gc "itimer-autosave")
161 (if (featurep 'toolbar) 162 (if (featurep 'toolbar)
162 (load-gc "toolbar") 163 (load-gc "toolbar")
163 ;; else still define a few functions. 164 ;; else still define a few functions.
164 (defun toolbar-button-p (obj) "No toolbar support." nil) 165 (defun toolbar-button-p (obj) "No toolbar support." nil)
165 (defun toolbar-specifier-p (obj) "No toolbar support." nil)) 166 (defun toolbar-specifier-p (obj) "No toolbar support." nil))