Mercurial > hg > xemacs-beta

comparison lisp/dumped-lisp.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
47 ;; duplicate doc string warnings, SparcWorks uses a separate 47 ;; duplicate doc string warnings, SparcWorks uses a separate
48 ;; autoloads file with the dumped packages removed. 48 ;; autoloads file with the dumped packages removed.
49 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!! 49 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
50 ;; So just make loaddefs-eos go away... 50 ;; So just make loaddefs-eos go away...
51 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs")) 51 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
52 "cus-file"
52 "startup" ; For initialization of 53 "startup" ; For initialization of
53 ; `emacs-user-extension-dir' 54 ; `emacs-user-extension-dir'
54 "misc" 55 "misc"
55 ;; (pureload "profile") 56 ;; (pureload "profile")
56 (unless-feature mule "help-nomule") 57 (unless-feature mule "help-nomule")
78 "lisp-mode" 79 "lisp-mode"
79 "text-mode" 80 "text-mode"
80 "fill" 81 "fill"
81 "auto-save" ; Added for 20.4 82 "auto-save" ; Added for 20.4
82 "movemail" ; Added for 21.2 83 "movemail" ; Added for 21.2
83 (when-feature windows-nt "winnt") 84 (when-feature windows-nt "win32-native")
84 (when-feature lisp-float-type "float-sup") 85 (when-feature lisp-float-type "float-sup")
85 "itimer" ; for vars auto-save-timeout and 86 "itimer" ; for vars auto-save-timeout and
86 ; auto-gc-threshold 87 ; auto-gc-threshold
87 "itimer-autosave" 88 "itimer-autosave"
89 "printer"
90
91 ;;;;;;;;;;;;;;;;;; GUI support
92 (when-feature window-system "gui")
93 (when-feature window-system "mouse")
94 (when-feature window-system "mode-motion")
88 (when-feature toolbar "toolbar") 95 (when-feature toolbar "toolbar")
89 (when-feature scrollbar "scrollbar") 96 (when-feature scrollbar "scrollbar")
90 (when-feature menubar "menubar") 97 (when-feature menubar "menubar")
91 (when-feature dialog "dialog") 98 (when-feature dialog "dialog")
99 (when-feature gutter "gutter")
100 (when-feature dragdrop-api "dragdrop")
101 "select"
102
103 ;;;;;;;;;;;;;;;;;; Content for GUI's
104 ;; There used to be window-system inserted in the when-feature,
105 ;; but IMHO your configure script should turn off the menubar,
106 ;; toolbar, etc. features when there is no window system. We
107 ;; should just be able to assume that, if (featurep 'menubar),
108 ;; the menubar should work and if items are added, they can be
109 ;; seen clearly and usefully.
110 (when-feature (and (not infodock) menubar) "menubar-items")
111 (when-feature (and gutter) "gutter-items")
112 (when-feature (and (not infodock) toolbar) "toolbar-items")
113 (when-feature (and (not infodock) dialog) "dialog-items")
114
115 ;;;;;;;;;;;;;;;;;; Coding-system support
116 (when-feature file-coding "coding")
117 (when-feature file-coding "code-files")
118 (when-feature file-coding "code-process")
119
120 ;;;;;;;;;;;;;;;;;; MULE support
92 (when-feature mule "mule-charset") 121 (when-feature mule "mule-charset")
93 (when-feature file-coding "coding")
94 (when-feature mule "mule-coding") 122 (when-feature mule "mule-coding")
95 ;; Handle I/O of files with extended characters. 123 ;; All files after this can have extended characters in them.
96 (when-feature file-coding "code-files")
97 ;; Handle process with encoding/decoding non-ascii coding-system.
98 (when-feature file-coding "code-process")
99 (when-feature mule "mule-help") 124 (when-feature mule "mule-help")
100 ;; Load the remaining basic files.
101 (when-feature mule "mule-category") 125 (when-feature mule "mule-category")
102 (when-feature mule "mule-ccl") 126 (when-feature mule "mule-ccl")
103 (when-feature mule "mule-misc") 127 (when-feature mule "mule-misc")
104 (when-feature mule "kinsoku") 128 (when-feature mule "kinsoku")
105 (when-feature (and mule x) "mule-x-init") 129 (when-feature (and mule x) "mule-x-init")
154 178
155 ;; Enable Mule capability for Gnus, mail, etc... 179 ;; Enable Mule capability for Gnus, mail, etc...
156 ;; Moved to sunpro-load.el - the default only for Sun. 180 ;; Moved to sunpro-load.el - the default only for Sun.
157 ;;(pureload "mime-setup") 181 ;;(pureload "mime-setup")
158 ;;; mule-load.el ends here 182 ;;; mule-load.el ends here
159 (when-feature window-system "gui") 183
160 (when-feature window-system "mode-motion") 184 ;; preload InfoDock stuff. should almost certainly not be here if
161 (when-feature window-system "mouse") 185 ;; id-menus is not here. infodock needs to figure out a clever way to
162 (when-feature window-system "select") 186 ;; advise this stuff or we need to export a clean way for infodock or
163 (when-feature dragdrop-api "dragdrop") 187 ;; others to control this programmatically.
164 ;; preload the X code, for faster startup.
165 (when-feature (and (not infodock)
166 (or x mswindows) menubar) "menubar-items")
167 (when-feature (and infodock (or x mswindows) menubar) "id-menus") 188 (when-feature (and infodock (or x mswindows) menubar) "id-menus")
168 (when-feature (and gutter menubar window-system) "gutter-items") 189 ;; preload the X code.
169 (when-feature x "x-faces") 190 (when-feature x "x-faces")
170 (when-feature x "x-iso8859-1") 191 (when-feature x "x-iso8859-1")
171 (when-feature x "x-mouse") 192 (when-feature x "x-mouse")
172 (when-feature x "x-select") 193 (when-feature x "x-select")
173 (when-feature (and x scrollbar) "x-scrollbar") 194 (when-feature (and x scrollbar) "x-scrollbar")
174 (when-feature x "x-misc") 195 (when-feature x "x-misc")
175 (when-feature x "x-init") 196 (when-feature x "x-init")
176 (when-feature (and (not infodock)
177 window-system toolbar) "toolbar-items")
178 (when-feature x "x-win-xfree86") 197 (when-feature x "x-win-xfree86")
179 (when-feature x "x-win-sun") 198 (when-feature x "x-win-sun")
180 ;; preload the mswindows code. 199 ;; preload the mswindows code.
181 (when-feature mswindows "msw-glyphs") 200 (when-feature mswindows "msw-glyphs")
182 (when-feature mswindows "msw-faces") 201 (when-feature mswindows "msw-faces")