annotate lisp/dumped-lisp.el @ 814:a634e3b7acc8

[xemacs-hg @ 2002-04-14 12:41:59 by ben] latest changes TODO.ben-mule-21-5: Update. make-docfile.c: Add basic support for handling ISO 2022 doc strings -- we parse the basic charset designation sequences so we know whether we're in ASCII and have to pay attention to end quotes and such. Reformat code according to coding standards. abbrev.el: Add `global-abbrev-mode', which turns on or off abbrev-mode in all buffers. Added `defining-abbrev-turns-on-abbrev-mode' -- if non-nil, defining an abbrev through an interactive function will automatically turn on abbrev-mode, either globally or locally depending on the command. This is the "what you'd expect" behavior. indent.el: general function for indenting a balanced expression in a mode-correct way. Works similar to indent-region in that a mode can specify a specific command to do the whole operation; if not, figure out the region using forward-sexp and indent each line using indent-according-to-mode. keydefs.el: Removed. Modify M-C-backslash to do indent-region-or-balanced-expression. Make S-Tab just insert a TAB char, like it's meant to do. make-docfile.el: Now that we're using the call-process-in-lisp, we need to load an extra file win32-native.el because we're running a bare temacs. menubar-items.el: Totally redo the Cmds menu so that most used commands appear directly on the menu and less used commands appear in submenus. The old way may have been very pretty, but rather impractical. process.el: Under Windows, don't ever use old-call-process-internal, even in batch mode. We can do processes in batch mode. subr.el: Someone recoded truncate-string-to-width, saying "the FSF version is too complicated and does lots of hard-to-understand stuff" but the resulting recoded version was *totally* wrong! it misunderstood the basic point of this function, which is work in *columns* not chars. i dumped ours and copied the version from FSF 21.1. Also added truncate-string-with-continuation-dots, since this idiom is used often. config.inc.samp, xemacs.mak: Separate out debug and optimize flags. Remove all vestiges of USE_MINIMAL_TAGBITS, USE_INDEXED_LRECORD_IMPLEMENTATION, and GUNG_HO, since those ifdefs have long been removed. Make error-checking support actually work. Some rearrangement of config.inc.samp to make it more logical. Remove callproc.c and ntproc.c from xemacs.mak, no longer used. Make pdump the default. lisp.h: Add support for strong type-checking of Bytecount, Bytebpos, Charcount, Charbpos, and others, by making them classes, overloading the operators to provide integer-like operation and carefully controlling what operations are allowed. Not currently enabled in C++ builds because there are still a number of compile errors, and it won't really work till we merge in my "8-bit-Mule" workspace, in which I make use of the new types Charxpos, Bytexpos, Memxpos, representing a "position" either in a buffer or a string. (This is especially important in the extent code.) abbrev.c, alloc.c, eval.c, buffer.c, buffer.h, editfns.c, fns.c, text.h: Warning fixes, some of them related to new C++ strict type checking of Bytecount, Charbpos, etc. dired.c: Caught an actual error due to strong type checking -- char len being passed when should be byte len. alloc.c, backtrace.h, bytecode.c, bytecode.h, eval.c, sysdep.c: Further optimize Ffuncall: -- process arg list at compiled-function creation time, converting into an array for extra-quick access at funcall time. -- rewrite funcall_compiled_function to use it, and inline this function. -- change the order of check for magic stuff in SPECBIND_FAST_UNSAFE to be faster. -- move the check for need to garbage collect into the allocation code, so only a single flag needs to be checked in funcall. buffer.c, symbols.c: add debug funs to check on mule optimization info in buffers and strings. eval.c, emacs.c, text.c, regex.c, scrollbar-msw.c, search.c: Fix evil crashes due to eistrings not properly reinitialized under pdump. Redo a bit some of the init routines; convert some complex_vars_of() into simple vars_of(), because they didn't need complex processing. callproc.c, emacs.c, event-stream.c, nt.c, process.c, process.h, sysdep.c, sysdep.h, syssignal.h, syswindows.h, ntproc.c: Delete. Hallelujah, praise the Lord, there is no god but Allah!!! fix so that processes can be invoked in bare temacs -- thereby eliminating any need for callproc.c. (currently only eliminated under NT.) remove all crufty and unnecessary old process code in ntproc.c and elsewhere. move non-callproc-specific stuff (mostly environment) into process.c, so callproc.c can be left out under NT. console-tty.c, doc.c, file-coding.c, file-coding.h, lstream.c, lstream.h: fix doc string handling so it works with Japanese, etc docs. change handling of "character mode" so callers don't have to manually set it (quite error-prone). event-msw.c: spacing fixes. lread.c: eliminate unused crufty vintage-19 "FSF defun hack" code. lrecord.h: improve pdump description docs. buffer.c, ntheap.c, unexnt.c, win32.c, emacs.c: Mule-ize some unexec and startup code. It was pseudo-Mule-ized before by simply always calling the ...A versions of functions, but that won't cut it -- eventually we want to be able to run properly even if XEmacs has been installed in a Japanese directory. (The current problem is the timing of the loading of the Unicode tables; this will eventually be fixed.) Go through and fix various other places where the code was not Mule-clean. Provide a function mswindows_get_module_file_name() to get our own name without resort to PATH_MAX and such. Add a big comment in main() about the problem with Unicode table load timing that I just alluded to. emacs.c: When error-checking is enabled (interpreted as "user is developing XEmacs"), don't ask user to "pause to read messages" when a fatal error has occurred, because it will wedge if we are in an inner modal loop (typically when a menu is popped up) and make us unable to get a useful stack trace in the debugger. text.c: Correct update_entirely_ascii_p_flag to actually work. lisp.h, symsinit.h: declarations for above changes.
author ben
date Sun, 14 Apr 2002 12:43:31 +0000
parents a5954632b187
children 2b6fa2618f76
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 (setq preloaded-file-list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 (assemble-list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 "backquote" ; needed for defsubst etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 "bytecomp-runtime" ; define defsubst
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 "find-paths"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 "packages" ; Bootstrap run-time lisp environment
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 "setup-paths"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 "dump-paths"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 "subr" ; load the most basic Lisp functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 "replace" ; match-string used in version.el.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 ; Ignore compiled-by-mistake version.elc
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 "version.el"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 "cl"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 "cl-extra"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 "cl-seq"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 "widget"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 "custom" ; Before the world so everything can be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 ; customized
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 "cus-start" ; for customization of builtin variables
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 "cmdloop"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 "keymap"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 "syntax"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 "device"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 "console"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 "obsolete"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 "specifier"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 "faces" ; must be loaded before any make-face call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 ;;(pureload "facemenu") #### not yet ported
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 "glyphs"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 "objects"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 "extents"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 "events"
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 464
diff changeset
33 "hash-table"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 "text-props"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 "process" ;; This is bad. network-streams may not be defined.
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
36 (when-feature multicast "multicast") ; #+network-streams implicitly true
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 "frame" ; move up here cause some stuff needs it here
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 "map-ynp"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 "simple"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 "keydefs" ; Before loaddefs so that keymap vars exist.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 "abbrev"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 "derived"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 "minibuf"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 "list-mode"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 "modeline" ; needs simple.el to be loaded first
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 ;; If SparcWorks support is included some additional packages are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 ;; dumped which would normally have autoloads. To avoid
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 ;; duplicate doc string warnings, SparcWorks uses a separate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 ;; autoloads file with the dumped packages removed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 ;; So just make loaddefs-eos go away...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
53 "cus-file"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 "startup" ; For initialization of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 ; `emacs-user-extension-dir'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 "misc"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 ;; (pureload "profile")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 "help"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 ;; (pureload "hyper-apropos") Soon...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 "files"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 "lib-complete"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 "format"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 "indent"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 "isearch-mode"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 "buffer"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 "buff-menu"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 "undo-stack"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 "window"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 "window-xemacs"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 "paths.el" ; don't get confused if paths compiled.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 "lisp"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 "page"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 "register"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 "iso8859-1" ; This must be before any modes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 ; (sets standard syntax table.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 "paragraphs"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 "easymenu" ; Added for 20.3.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 "lisp-mode"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 "text-mode"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 "fill"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 "auto-save" ; Added for 20.4
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
82 "movemail" ; Added for 21.2
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
83 (when-feature windows-nt "win32-native")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 (when-feature lisp-float-type "float-sup")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 "itimer" ; for vars auto-save-timeout and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 ; auto-gc-threshold
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 "itimer-autosave"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
88 "printer"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 787
diff changeset
89 "behavior"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 787
diff changeset
90 "behavior-defs"
787
242b62e9fc59 [xemacs-hg @ 2002-03-20 10:20:48 by ben]
ben
parents: 784
diff changeset
91 "diagnose"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
92
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
93 ;;;;;;;;;;;;;;;;;; GUI support
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
94 (when-feature window-system "gui")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
95 (when-feature window-system "mouse")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
96 (when-feature window-system "mode-motion")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 (when-feature toolbar "toolbar")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 (when-feature scrollbar "scrollbar")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 (when-feature menubar "menubar")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 (when-feature dialog "dialog")
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
101 (when-feature gutter "gutter")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
102 (when-feature dragdrop-api "dragdrop")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
103 "select"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
104
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
105 ;;;;;;;;;;;;;;;;;; Content for GUI's
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
106 ;; There used to be window-system inserted in the when-feature,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
107 ;; but IMHO your configure script should turn off the menubar,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
108 ;; toolbar, etc. features when there is no window system. We
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
109 ;; should just be able to assume that, if (featurep 'menubar),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
110 ;; the menubar should work and if items are added, they can be
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
111 ;; seen clearly and usefully.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
112 (when-feature (and (not infodock) menubar) "menubar-items")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
113 (when-feature (and gutter) "gutter-items")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
114 (when-feature (and (not infodock) toolbar) "toolbar-items")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
115 (when-feature (and (not infodock) dialog) "dialog-items")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
116
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
117 ;;;;;;;;;;;;;;;;;; Coding-system support
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
118 "coding"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
119 "code-files"
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
120 ;; Handle process with encoding/decoding coding-system.
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
121 "code-process"
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
122 ;; Provide basic commands to set coding systems to user
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
123 "code-cmds"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
124 "unicode"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
125 ;;;;;;;;;;;;;;;;;; MULE support
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
126 (when-feature mule "mule-charset")
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
127 (when-feature mule "mule-cmds") ; to sync with Emacs 20.1
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
128 (when-feature mule "mule-coding")
778
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 771
diff changeset
129 (when-feature mule "mule-composite-stub")
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 771
diff changeset
130 (when-feature mule "mule-composite")
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
131 ;; may initialize coding systems
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
132 (when-feature (and mule x) "mule-x-init")
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
133 (when-feature (and mule tty) "mule-tty-init")
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
134 (when-feature (and mule mswindows) "mule-msw-init")
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
135 "code-init" ; set up defaults
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
136 ;; All files after this can have extended characters in them.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 (when-feature mule "mule-category")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 (when-feature mule "mule-ccl")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 (when-feature mule "kinsoku")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 ;; after this goes the specific lisp routines for a particular input system
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 ;; 97.2.5 JHod Shouldn't these go into a site-load file to allow site
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 ;; or user switching of input systems???
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 ;(if (featurep 'wnn)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 ; (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 ; (pureload "egg")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 ; (pureload "egg-wnn")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 ; (setq egg-default-startup-file "eggrc-wnn")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 ;; (if (and (boundp 'CANNA) CANNA)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 ;; (pureload "canna")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 ;; )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
154 ;; Now load files to set up all the different languages/environments that
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
155 ;; Mule knows about. Formerly we had to worry about files shadowed by
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
156 ;; those of the same name in leim/quail.el, but no longer, since we now
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
157 ;; compile with -no-packages.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 (when-feature mule "arabic")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 (when-feature mule "chinese")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
161 (when-feature mule "cyrillic")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 (when-feature mule "english")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 (when-feature mule "ethiopic")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 (when-feature mule "european")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
165 (when-feature mule "greek")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 (when-feature mule "hebrew")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
167 (when-feature mule "indian")
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
168 (when-feature mule "devanagari") ; must be loaded after indian.el
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 (when-feature mule "japanese")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 (when-feature mule "korean")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
171 (when-feature mule "lao")
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
172 (when-feature mule "latin")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 (when-feature mule "misc-lang")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
174 ;; #### merge thai and thai-xtis!!!
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
175 ;(when-feature mule "thai")
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
176 (when-feature mule "thai-xtis")
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
177 (when-feature mule "tibetan")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 (when-feature mule "vietnamese")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 ;; Specialized language support
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 (when-feature (and mule CANNA) "canna-leim")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 ;; Egg/Its is now a package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 ; (when-feature (and mule wnn) "egg-leim")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 ; (when-feature (and mule wnn) "egg-kwnn-leim")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 ; (when-feature (and mule wnn) "egg-cwnn-leim")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 ; (when-feature mule "egg-sj3-leim")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 ;; SKK is now a package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 ; (when-feature mule "skk-leim")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 ;; Enable Mule capability for Gnus, mail, etc...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 ;; Moved to sunpro-load.el - the default only for Sun.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 ;;(pureload "mime-setup")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
193
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
194 ;; needs access to the charsets created by the above
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
195 ;; language-specific files.
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
196 (when-feature (and mule mswindows) "mule-msw-init-late")
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
197
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 ;;; mule-load.el ends here
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
199
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
200 ;; preload InfoDock stuff. should almost certainly not be here if
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
201 ;; id-menus is not here. infodock needs to figure out a clever way to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
202 ;; advise this stuff or we need to export a clean way for infodock or
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
203 ;; others to control this programmatically.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
204 (when-feature (and infodock (or x mswindows gtk) menubar) "id-menus")
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
205 ;; preload the X code.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 (when-feature x "x-faces")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 (when-feature x "x-iso8859-1")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 (when-feature x "x-mouse")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 (when-feature x "x-select")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 (when-feature (and x scrollbar) "x-scrollbar")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 (when-feature x "x-misc")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 (when-feature x "x-init")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 (when-feature x "x-win-xfree86")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 (when-feature x "x-win-sun")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
215 ;; preload the GTK code
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
216 (when-feature gtk "gtk-ffi")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
217 (when-feature gtk "gtk-widgets")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
218 (when-feature gtk "gdk")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
219 (when-feature gtk "gtk-init")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
220 (when-feature gtk "gtk-faces")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
221 (when-feature gtk "gtk-iso8859-1")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
222 (when-feature (and gtk dialog) "dialog-gtk")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
223 (when-feature gtk "gtk-select")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
224 (when-feature gtk "gtk-mouse")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
225 (when-feature gtk "gtk-glyphs")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
226 (when-feature glade "glade")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
227 (when-feature gtk "widgets-gtk")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
228
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 ;; preload the mswindows code.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 (when-feature mswindows "msw-glyphs")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 (when-feature mswindows "msw-faces")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 (when-feature mswindows "msw-mouse")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 (when-feature mswindows "msw-init")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 (when-feature mswindows "msw-select")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 ;; preload the TTY init code.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 (when-feature tty "tty-init")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 ;;; Formerly in tooltalk/tooltalk-load.el
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 ;; Moved to tooltalk package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 ;; (when-feature tooltalk "tooltalk-macros")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 ;; (when-feature tooltalk "tooltalk-util")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 ;; (when-feature tooltalk "tooltalk-init")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 ;; "vc-hooks" ; Packaged. Available in two versions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 ;; "ediff-hook" ; Packaged.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 "fontl-hooks"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 "auto-show"
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
246 "resize-minibuffer"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 (when-feature ldap "ldap")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 ;; (when-feature energize "energize/energize-load.el")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 ;;; formerly in sunpro/sunpro-load.el
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 ;; (when-feature (and mule sparcworks) "mime-setup")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 ;; Moved to Sun package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 ;; (when-feature sparcworks "cc-mode") ; Requires cc-mode package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 ;; (when-feature sparcworks "sunpro-init")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 ;; (when-feature sparcworks "ring")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 ;; (when-feature sparcworks "comint") ; Requires comint package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 ;; (when-feature sparcworks "annotations")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 ;;; formerly in eos/sun-eos-load.el
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 ;; (when-feature sparcworks "sun-eos-init")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 ;; (when-feature sparcworks "sun-eos-common")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 ;; (when-feature sparcworks "sun-eos-editor")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 ;; (when-feature sparcworks "sun-eos-browser")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 ;; (when-feature sparcworks "sun-eos-debugger")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 ;; (when-feature sparcworks "sun-eos-debugger-extra")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 ;; (when-feature sparcworks "sun-eos-menubar")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 "loadhist" ; Must be dumped before loaddefs is loaded
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 "loaddefs" ; <=== autoloads get loaded here
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 ))