annotate lisp/dumped-lisp.el @ 4953:304aebb79cd3

function renamings to track names of char typedefs -------------------- ChangeLog entries follow: -------------------- man/ChangeLog addition: 2010-01-27 Ben Wing <ben@xemacs.org> * internals/internals.texi (lrecords): * internals/internals.texi (The DFC API): * internals/internals.texi (Conversion to and from External Data): * internals/internals.texi (Mule-izing Code): * internals/internals.texi (Pervasive changes throughout XEmacs sources): * internals/internals.texi (Ben's README): * internals/internals.texi (Future Work -- Localized Text/Messages): * emodules.texi (Defining Variables): Rename: write_c_string -> write_cistring build_intstring -> build_istring build_string -> build_cistring build_ext_string -> build_extstring make_ext_string -> make_extstring buffer_insert_c_string -> buffer_insert_ascstring intern_int -> intern_istring See comment in src/ChangeLog about this. modules/ChangeLog addition: 2010-01-27 Ben Wing <ben@xemacs.org> * postgresql/postgresql.c (print_pgconn): * postgresql/postgresql.c (print_pgresult): * postgresql/postgresql.c (Fpq_conn_defaults): * postgresql/postgresql.c (Fpq_pgconn): * postgresql/postgresql.c (Fpq_res_status): * postgresql/postgresql.c (Fpq_result_error_message): * postgresql/postgresql.c (Fpq_fname): * postgresql/postgresql.c (Fpq_get_value): * postgresql/postgresql.c (Fpq_cmd_status): * postgresql/postgresql.c (Fpq_cmd_tuples): * postgresql/postgresql.c (Fpq_notifies): * postgresql/postgresql.c (Fpq_get_line): * postgresql/postgresql.c (Fpq_get_line_async): * postgresql/postgresql.c (FROB): * postgresql/postgresql.c (init_postgresql_from_environment): * ldap/eldap.c: * ldap/eldap.c (Fldap_open): * ldap/eldap.c (Fldap_search_basic): * canna/canna_api.c: * canna/canna_api.c (make_euc_string): Rename: write_c_string -> write_cistring build_intstring -> build_istring build_string -> build_cistring build_ext_string -> build_extstring make_ext_string -> make_extstring buffer_insert_c_string -> buffer_insert_ascstring intern_int -> intern_istring See comment in src/ChangeLog about this. src/ChangeLog addition: 2010-01-27 Ben Wing <ben@xemacs.org> * .gdbinit.in.in: * README: * abbrev.c (write_abbrev): * abbrev.c (describe_abbrev): * alloc.c (make_extstring): * alloc.c (build_istring): * alloc.c (build_cistring): * alloc.c (build_ascstring): * alloc.c (build_extstring): * alloc.c (build_msg_istring): * alloc.c (build_defer_istring): * buffer.c (Fgenerate_new_buffer_name): * buffer.c (init_buffer_2): * console-tty.c (tty_init_console): * console-x.c (get_display_arg_connection): * console-x.c (x_perhaps_init_unseen_key_defaults): * database.c (dbm_map): * database.c (dbm_get): * database.c (berkdb_get): * database.c (berkdb_map): * device-gtk.c (FROB_PIXMAP): * device-gtk.c (Fgtk_style_info): * device-msw.c (msprinter_default_printer): * device-msw.c (sync_printer_with_devmode): * device-x.c (coding_system_of_xrm_database): * device-x.c (x_init_device): * device-x.c (signal_if_x_error): * device-x.c (Fx_get_resource): * device-x.c (Fx_server_vendor): * device-x.c (Fx_get_font_path): * dialog-x.c (maybe_run_dbox_text_callback): * doc.c (extract_object_file_name): * doc.c (unparesseuxify_doc_string): * doc.c (get_doc_string): * doc.c (get_object_file_name): * doc.c (Fdocumentation): * doc.c (Fsnarf_documentation): * doc.c (Fsubstitute_command_keys): * editfns.c (init_editfns): * editfns.c (Ftemp_directory): * editfns.c (Fuser_login_name): * editfns.c (Fuser_real_login_name): * editfns.c (Fuser_home_directory): * editfns.c (Fformat_time_string): * editfns.c (Fcurrent_time_string): * editfns.c (Fcurrent_time_zone): * emacs.c: * emacs.c (main_1): * emodules.c (Flist_modules): * emodules.c (emodules_load): * emodules.c (emodules_doc_sym): * emodules.c (vars_of_module): * event-Xt.c (x_has_keysym): * event-gtk.c (emacs_gtk_format_magic_event): * event-gtk.c (dragndrop_data_received): * event-gtk.c (gtk_reset_key_mapping): * event-msw.c (mswindows_dde_callback): * event-msw.c (mswindows_wnd_proc): * faces.c (complex_vars_of_faces): * file-coding.c (find_coding_system): * file-coding.c (setup_eol_coding_systems): * file-coding.c (make_coding_system_1): * file-coding.c (snarf_coding_system): * fileio.c: * fileio.c (lisp_strerror): * fileio.c (Ffile_name_directory): * fileio.c (Ffile_name_as_directory): * fileio.c (Fdirectory_file_name): * fileio.c (if): * fileio.c (Ffile_symlink_p): * fileio.c (Fencrypt_string): * fileio.c (Fdecrypt_string): * filelock.c (lock_file): * filelock.c (Ffile_locked_p): * floatfns.c (matherr): * font-mgr.c (build_fcapi_string): * font-mgr.c (make_xlfd_font_regexp): * frame-msw.c (mswindows_window_id): * frame-msw.c (mswindows_frame_property): * frame-x.c: * frame-x.c (color_to_string): * frame-x.c (maybe_set_frame_title_format): * frame-x.c (x_cde_transfer_callback): * frame-x.c (Fx_window_id): * glade.c (connector): * glade.c (Fglade_xml_textdomain): * glade.c (syms_of_glade): * glyphs-eimage.c (jpeg_instantiate): * glyphs-eimage.c (png_instantiate): * glyphs-eimage.c (tiff_instantiate): * glyphs-gtk.c (font_instantiate): * glyphs-gtk.c (BUILD_GLYPH_INST): * glyphs-x.c (x_locate_pixmap_file): * glyphs-x.c (font_instantiate): * glyphs-x.c (x_widget_property): * glyphs-x.c (BUILD_GLYPH_INST): * glyphs.c (print_image_instance): * glyphs.c (bitmap_to_lisp_data): * glyphs.c (pixmap_to_lisp_data): * gpmevent.c (turn_off_gpm): * gpmevent.c (Fgpm_enabled_p): * gpmevent.c (Fgpm_enable): * gtk-glue.c (__make_string_mapper): * gtk-glue.c (xemacs_gtklist_to_list): * gtk-xemacs.c (FROB_FACE): * gtk-xemacs.c (xemacs_gtk_convert_color): * hpplay.c (player_error_internal): * hpplay.c (myHandler): * insdel.c (buffer_insert_ascstring_1): * insdel.h: * insdel.h (buffer_insert_ascstring): * intl.c (Fcurrent_locale): * intl.c (Fset_current_locale): * keymap.c (make_key_description): * keymap.c (Ftext_char_description): * keymap.c (describe_command): * keymap.c (describe_map): * lisp.h: * lread.c: * lread.c (locate_file_in_directory_mapper): * lread.c (locate_file_construct_suffixed_files_mapper): * mule-charset.c (Fmake_charset): * nt.c (Fmswindows_short_file_name): * nt.c (Fmswindows_long_file_name): * objects-gtk.c (__get_gtk_font_truename): * objects-gtk.c (__gtk_font_list_internal): * objects-msw.c (font_enum_callback_2): * objects-msw.c (create_hfont_from_font_spec): * objects-msw.c (mswindows_font_list): * objects-msw.c (mswindows_font_spec_matches_charset_stage_2): * objects-tty.c (tty_initialize_font_instance): * objects-x.c (x_font_truename): * objects-x.c (x_font_instance_truename): * objects-x.c (x_font_instance_properties): * objects-x.c (x_font_list): * print.c (write_cistring): * print.c (print_vector_internal): * print.c (print_cons): * process-nt.c (nt_canonicalize_host_name): * process-unix.c (unix_create_process): * process-unix.c (unix_canonicalize_host_name): * process.c (status_message): * process.c (status_notify): * process.c (init_xemacs_process): * process.c (syms_of_process): * redisplay-tty.c (term_get_fkeys_1): * redisplay-tty.c (CONDITIONAL_REASSIGN): * search.c (compile_pattern_1): * select-common.h (selection_data_to_lisp_data): * select-gtk.c (atom_to_symbol): * select-gtk.c (PROCESSING_GTK_CODE): * select-msw.c (mswindows_get_foreign_selection): * select-x.c (x_atom_to_symbol): * select-x.c (Fx_get_cutbuffer_internal): * symbols.c (intern_istring): * symbols.c (intern): * symbols.c (intern_converting_underscores_to_dashes): * symbols.c (Fintern): * sysdep.c (init_system_name): * sysdll.c (dll_error): * sysdll.c (dll_open): * syswindows.h: * syswindows.h (build_tstr_string): * tests.c (DFC_CHECK_LENGTH): * tests.c (DFC_CHECK_CONTENT): * tests.c (DFC_RESULT_PASS): * tests.c (Ftest_data_format_conversion): * text.c: * text.c (new_dfc_convert_now_damn_it): * text.h: * text.h (build_wext_string): * tooltalk.c (tt_build_c_string): * tooltalk.c (Ftooltalk_default_procid): * tooltalk.c (Ftooltalk_default_session): * tooltalk.c (init_tooltalk): * ui-byhand.c (Fgtk_clist_get_text): * ui-byhand.c (Fgtk_clist_get_pixtext): * ui-byhand.c (Fgtk_label_get): * ui-byhand.c (Fgtk_notebook_query_tab_label_packing): * ui-gtk.c (emacs_gtk_object_printer): * ui-gtk.c (emacs_gtk_boxed_printer): * ui-gtk.c (gtk_type_to_lisp): * ui-gtk.c (symbol_to_enum): * ui-gtk.c (enum_to_symbol): * unexaix.c (report_error): * unexaix.c (ERROR0): * unexec.c (report_error): * unexec.c (ERROR0): * unicode.c (unicode_to_ichar): * win32.c (tstr_to_local_file_format): * win32.c (Fmswindows_cygwin_to_win32_path): * win32.c (struct read_link_hash): * xemacs.def.in.in: Rename: write_c_string -> write_cistring build_intstring -> build_istring build_string -> build_cistring build_ext_string -> build_extstring make_ext_string -> make_extstring buffer_insert_c_string -> buffer_insert_ascstring intern_int -> intern_istring These functions have been renamed so that the naming harmonizes with the typedefs for strings: `cistring' along with CIbyte *, `istring' along with Ibyte *, `extstring' along with Extbyte *, `ascstring' along with Ascbyte *. Also make buffer_insert_ascstring take Ascbyte * and assert that its argument is ASCII.
author Ben Wing <ben@xemacs.org>
date Wed, 27 Jan 2010 00:35:36 -0600
parents bd28481bb0e1
children c673987f5f3d 8b2f75cecb89
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
1 (defvar packages-hardcoded-lisp
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
2 '(
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
3 ;; Nothing at this time
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
4 )
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
5 "Lisp packages that are always dumped with XEmacs.
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
6 This includes every package that is loaded directly by a package listed
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
7 in dumped-lisp.el and is not itself listed.")
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
8
2367
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
9
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
10 ;; WARNING WARNING WARNING: None of the files below, until where it says
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
11 ;; "All files after this can have extended characters in them", can have
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
12 ;; extended (non-ASCII characters) of any sort in them! Unfortunately, you
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
13 ;; will not get any error at load-time; however, you may get a later very
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
14 ;; cryptic error "Invalid opcode"! This is caused by the byte-code data
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
15 ;; being encoded as escape-quoted, when we can't handle that yet.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
16 ;;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
17 ;; #### We should resurrect the check for the coding-system magic cookie in
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
18 ;; fileio.c and put in an abort if we are not able to handle it yet.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 1333
diff changeset
19
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 (setq preloaded-file-list
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
21 (list
1333
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
22 ;; do not defcustom any variables in these files
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
23
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
24 "backquote" ; needed for defsubst etc.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
25 "bytecomp-runtime" ; define defsubst
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
26 "find-paths"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
27 "packages" ; Bootstrap run-time lisp environment
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
28 "setup-paths"
1333
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
29
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
30 ;; use custom-declare-variable-early, not defcustom, in these files
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
31
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
32 "subr" ; load the most basic Lisp functions
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
33 "post-gc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
34 "replace" ; match-string used in version.el.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
35
4246
9fec7fedbf1b [xemacs-hg @ 2007-10-31 11:21:02 by aidan]
aidan
parents: 4072
diff changeset
36 "version"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
37
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
38 "cl"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
39 "cl-extra"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
40 "cl-seq"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
41 "widget"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
42 "custom" ; Before the world so everything can be
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
43 ; customized
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
44 "cus-start" ; for customization of builtin variables
1333
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
45
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
46 ;; OK, you can use defcustom from here on
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
47
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
48 "cmdloop"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
49 "keymap"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
50 "syntax"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
51 "device"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
52 "console"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
53 "obsolete"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
54 "specifier"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
55 "frame" ; needed by faces
3094
ad2f4ae9895b [xemacs-hg @ 2005-11-26 11:45:47 by stephent]
stephent
parents: 2973
diff changeset
56 ;; #### this should be (featurep 'xft)
3354
15fb91e3a115 [xemacs-hg @ 2006-04-23 16:11:16 by stephent]
stephent
parents: 3094
diff changeset
57 (when (featurep 'xft-fonts) "fontconfig") ; needed by x-faces
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
58 (when (featurep 'x) "x-faces") ; needed by faces
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
59 (when (featurep 'gtk) "gtk-faces")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
60 (when (valid-console-type-p 'mswindows) "msw-faces")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
61 "faces" ; must be loaded before any make-face call
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
62 ;;(pureload "facemenu") #### not yet ported
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
63 "glyphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
64 "objects"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
65 "extents"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
66 "events"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
67 "hash-table"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
68 "text-props"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
69 "process" ;; This is bad. network-streams may not be defined.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
70 (when (featurep 'multicast) "multicast") ; #+network-streams implicitly true
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
71 "map-ynp"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
72 "undo-stack"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
73 "window" ; simple needs `save-window-excursion'
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
74 "window-xemacs"
3932
c585f0c06591 [xemacs-hg @ 2007-04-30 19:50:53 by stephent]
stephent
parents: 3767
diff changeset
75 "resize-minibuffer" ; simple needs `resize-minibuffer-mode'
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
76 "simple"
1333
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
77 "newcomment"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
78 "keydefs" ; Before loaddefs so that keymap vars exist.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
79 "abbrev"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
80 "derived"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
81 "minibuf"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
82 "list-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
83 "modeline" ; needs simple.el to be loaded first
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 ;; If SparcWorks support is included some additional packages are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 ;; dumped which would normally have autoloads. To avoid
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 ;; duplicate doc string warnings, SparcWorks uses a separate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 ;; autoloads file with the dumped packages removed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 ;; So just make loaddefs-eos go away...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
91 "cus-file"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
92 "startup" ; For initialization of
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 ; `emacs-user-extension-dir'
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
94 "misc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
95 ;; (pureload "profile")
3368
959746c534f6 [xemacs-hg @ 2006-04-29 16:15:21 by aidan]
aidan
parents: 3354
diff changeset
96 "loadhist" ; Must be dumped before loaddefs is loaded
959746c534f6 [xemacs-hg @ 2006-04-29 16:15:21 by aidan]
aidan
parents: 3354
diff changeset
97 ; Used by help.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
98 ;; (pureload "hyper-apropos") Soon...
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
99 "files"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
100 "lib-complete"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
101 "format"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
102 "indent"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
103 "isearch-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
104 "buffer"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
105 "buff-menu"
4372
ebb35ddea76a Byte-compile menu lambdas; make the menu of available tutorials more readable.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4246
diff changeset
106 "paths"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
107 "lisp"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
108 "page"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
109 "register"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
110 "iso8859-1" ; This must be before any modes
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
111 ; (sets standard syntax table.)
4506
bd28481bb0e1 Port #'window-buffer-height, #'fit-window-to-buffer, & window, buf, functions.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4372
diff changeset
112 "easy-mmode" ; Added for 21.5. Used by help.
bd28481bb0e1 Port #'window-buffer-height, #'fit-window-to-buffer, & window, buf, functions.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4372
diff changeset
113 "help"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
114 "easymenu" ; Added for 20.3.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
115 "lisp-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
116 "text-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
117 "fill"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
118 "auto-save" ; Added for 20.4
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
119 "movemail" ; Added for 21.2
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
120 (when (eq system-type 'windows-nt) "win32-native")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
121 (when (featurep 'lisp-float-type) "float-sup")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
122 "itimer" ; for vars auto-save-timeout and
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 ; auto-gc-threshold
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
124 "itimer-autosave"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
125 "printer"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
126 "behavior"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
127 "behavior-defs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
128 "diagnose"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
129
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
130 ;;;;;;;;;;;;;;;;;; GUI support
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
131 (when (featurep 'window-system)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
132 '("gui"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
133 "mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
134 "mode-motion"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
135 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
136 (when (featurep 'toolbar) "toolbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
137 (when (featurep 'scrollbar) "scrollbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
138 (when (featurep 'menubar) "menubar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
139 (when (featurep 'dialog) "dialog")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
140 (when (featurep 'gutter) "gutter")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
141 (when (featurep 'dragdrop-api) "dragdrop")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
142 "select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
143
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
144 ;;;;;;;;;;;;;;;;;; Content for GUI's
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
145 ;; There used to be window-system inserted in the when-feature,
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
146 ;; but IMHO your configure script should turn off the menubar,
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
147 ;; toolbar, etc. features when there is no window system. We
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
148 ;; should just be able to assume that, if (featurep 'menubar),
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
149 ;; the menubar should work and if items are added, they can be
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
150 ;; seen clearly and usefully.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
151 (when (featurep '(and (not infodock) menubar)) "menubar-items")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
152 (when (featurep '(and gutter)) "gutter-items")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
153 (when (featurep '(and (not infodock) toolbar)) "toolbar-items")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
154 (when (featurep '(and (not infodock) dialog)) "dialog-items")
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
155
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
156 ;;;;;;;;;;;;;;;;;; Coding-system support
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
157 "coding"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
158 "code-files"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
159 ;; Handle process with encoding/decoding coding-system.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
160 "code-process"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
161 ;; Provide basic commands to set coding systems to user
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
162 "code-cmds"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
163 "unicode"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
164 ;;;;;;;;;;;;;;;;;; MULE support
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
165 (when (featurep 'mule)
2465
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
166 '("mule/mule-charset"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
167 "mule/mule-cmds" ; to sync with Emacs 20.1
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
168 "mule/mule-coding"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
169 "mule/mule-composite-stub"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
170 "mule/mule-composite"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
171 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
172 ;; may initialize coding systems
2465
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
173 (when (featurep '(and mule x)) "mule/mule-x-init")
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
174 (when (featurep '(and mule tty)) "mule/mule-tty-init")
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
175 (when (and (featurep 'mule) (memq system-type '(windows-nt cygwin32)))
2474
a43cb0f95540 [xemacs-hg @ 2005-01-09 14:22:08 by adrian]
adrian
parents: 2465
diff changeset
176 "mule/mule-win32-init")
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
177 "code-init" ; set up defaults
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
178 ;; All files after this can have extended characters in them.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
179 (when (featurep 'mule)
2465
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
180 '("mule/mule-category"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
181 "mule/kinsoku"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
182 ))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 ;; after this goes the specific lisp routines for a particular input system
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 ;; 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
186 ;; or user switching of input systems???
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 ;(if (featurep 'wnn)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 ; (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 ; (pureload "egg")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 ; (pureload "egg-wnn")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 ; (setq egg-default-startup-file "eggrc-wnn")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 ;; (if (and (boundp 'CANNA) CANNA)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 ;; (pureload "canna")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 ;; )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
197 ;; 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
198 ;; 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
199 ;; 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
200 ;; compile with -no-packages.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
202 (when (featurep 'mule)
2465
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
203 '("mule/arabic"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
204 "mule/chinese"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
205 "mule/cyrillic"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
206 "mule/english"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
207 "mule/ethiopic"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
208 "mule/greek"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
209 "mule/hebrew"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
210 "mule/indian"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
211 "mule/devanagari" ; must be loaded after indian.el
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
212 "mule/japanese"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
213 "mule/korean"
4072
aa28d959af41 [xemacs-hg @ 2007-07-22 22:03:29 by aidan]
aidan
parents: 3932
diff changeset
214 "mule/lao" ; sucks.
2465
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
215 "mule/latin"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
216 "mule/misc-lang"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
217 ;; "thai" #### merge thai and thai-xtis!!!
4072
aa28d959af41 [xemacs-hg @ 2007-07-22 22:03:29 by aidan]
aidan
parents: 3932
diff changeset
218 ;; #### Even better; take out thai-xtis! It's not even a
aa28d959af41 [xemacs-hg @ 2007-07-22 22:03:29 by aidan]
aidan
parents: 3932
diff changeset
219 ;; standard, and no-one uses it.
2465
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
220 "mule/thai-xtis"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
221 "mule/tibetan"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
222 "mule/vietnamese"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
223 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
224
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 ;; Specialized language support
2973
414a64af46c9 [xemacs-hg @ 2005-10-04 17:51:13 by stephent]
stephent
parents: 2828
diff changeset
226 (when (featurep 'mule) "mule/canna-leim")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
227 ;; 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
228 ;; language-specific files.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
229 (when (and (featurep 'mule) (valid-console-type-p 'mswindows))
2465
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels]
michaels
parents: 2367
diff changeset
230 "mule/mule-msw-init-late")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
231
3707
f6f6fc9eb269 [xemacs-hg @ 2006-11-28 21:20:22 by aidan]
aidan
parents: 3368
diff changeset
232 (when (featurep 'mule)
f6f6fc9eb269 [xemacs-hg @ 2006-11-28 21:20:22 by aidan]
aidan
parents: 3368
diff changeset
233 "mule/general-late")
f6f6fc9eb269 [xemacs-hg @ 2006-11-28 21:20:22 by aidan]
aidan
parents: 3368
diff changeset
234
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 ;;; mule-load.el ends here
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
236
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
237 ;; preload InfoDock stuff. should almost certainly not be here if
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
238 ;; 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
239 ;; 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
240 ;; others to control this programmatically.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
241 (when (featurep '(and infodock (or x mswindows gtk) menubar))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
242 "id-menus")
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
243 ;; preload the X code.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
244 (when (featurep '(and x scrollbar)) "x-scrollbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
245 (when (featurep 'x)
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2579
diff changeset
246 '("x-mouse"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
247 "x-select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
248 "x-misc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
249 "x-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
250 "x-win-xfree86"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
251 "x-win-sun"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
252 ;; preload the GTK code
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
253 (when (featurep 'gtk)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
254 '("gtk-ffi"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
255 "gtk-widgets"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
256 "gdk"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
257 "gtk-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
258 "gtk-select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
259 "gtk-mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
260 "gtk-glyphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
261 "widgets-gtk"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
262 (when (featurep '(and gtk dialog)) "dialog-gtk")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
263 (when (featurep 'glade) "glade")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
264
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 ;; preload the mswindows code.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
266 (when (valid-console-type-p 'mswindows)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
267 '("msw-glyphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
268 "msw-mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
269 "msw-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
270 "msw-select"))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 ;; preload the TTY init code.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
272 (when (featurep 'tty) "tty-init")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 ;;; Formerly in tooltalk/tooltalk-load.el
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 ;; Moved to tooltalk package
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
275 ;; (when (featurep 'tooltalk)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
276 ;; '("tooltalk-macros" "tooltalk-util" "tooltalk-init"))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 ;; "vc-hooks" ; Packaged. Available in two versions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 ;; "ediff-hook" ; Packaged.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
279 "fontl-hooks"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
280 "auto-show"
2579
1fc205405d85 [xemacs-hg @ 2005-02-10 03:26:14 by ben]
ben
parents: 2558
diff changeset
281 "paragraphs" ; needs easy-mmode, coding
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
282 (when (featurep 'ldap) "ldap")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
284 ;; (when (featurep 'energize) "energize/energize-load.el")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 ;;; formerly in sunpro/sunpro-load.el
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
286 ;; (when (featurep '(and mule sparcworks)) "mime-setup")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 ;; Moved to Sun package
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
289 ;; (when (featurep 'sparcworks)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
290 ;; '("cc-mode" ; Requires cc-mode package
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
291 ;; "sunpro-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
292 ;; "ring"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
293 ;; "comint" ; Requires comint package
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
294 ;; "annotations"))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 ;;; formerly in eos/sun-eos-load.el
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
297 ;; (when (featurep 'sparcworks)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
298 ;; '("sun-eos-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
299 ;; "sun-eos-common"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
300 ;; "sun-eos-editor"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
301 ;; "sun-eos-browser"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
302 ;; "sun-eos-debugger"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
303 ;; "sun-eos-debugger-extra"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
304 ;; "sun-eos-menubar"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
305 "loaddefs" ; <=== autoloads get loaded here
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
306 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
307
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
308 (setq preloaded-file-list
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
309 (apply #'nconc
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
310 (mapcar #'(lambda (x)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
311 (if (listp x) x (list x)))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
312 preloaded-file-list)))