Mercurial > emacs

comparison src/lread.c @ 112364:42e22c4f06b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move all DEFVAR'd globals into a structure -- threading infrastructure * globals.h: New file. * xterm.h (Vx_pixel_size_width_font_regexp): Remove declaration. * window.h (Vinitial_window_system, Vminibuf_scroll_window) (Vwindow_system_version): Remove declaration. * w32term.h (Vw32_enable_palette) (Vx_pixel_size_width_font_regexp): Remove declaration. * w32menu.c (Voverriding_local_map) (Voverriding_local_map_menu_flag): Remove declaration. * w32inevt.c (Vw32_alt_is_meta, Vw32_apps_modifier) (Vw32_capslock_is_shiftlock, Vw32_enable_caps_lock) (Vw32_enable_num_lock, Vw32_lwindow_modifier) (Vw32_pass_lwindow_to_system, Vw32_pass_rwindow_to_system) (Vw32_phantom_key_code, Vw32_recognize_altgr) (Vw32_rwindow_modifier, Vw32_scroll_lock_modifier) (w32_use_full_screen_buffer): Remove declaration. * w32.c (Vsystem_configuration, Vw32_downcase_file_names) (Vw32_generate_fake_inodes, Vw32_get_true_file_attributes) (w32_num_mouse_buttons, w32_pipe_read_delay): Remove declaration. * termopts.h (Vtruncate_partial_width_windows, inverse_video) (no_redraw_on_reenter, visible_bell): Remove declaration. * sysdep.c (Vsystem_name): Remove declaration. * syntax.h (parse_sexp_lookup_properties): Remove declaration. * menu.h (Vmenu_updating_frame): Remove declaration. * macros.h (Vexecuting_kbd_macro, executing_kbd_macro_index): Remove declaration. * lisp.h (Vafter_init_time, Vafter_load_alist) (Vauto_save_list_file_name, Vbefore_init_time, Vcommand_history) (Vcompletion_regexp_list, Vcurrent_load_list) (Vcurrent_prefix_arg, Vdata_directory, Vdebug_on_error) (Vdoc_directory, Vdoc_file_name, Vdynamic_library_alist) (Vexec_directory, Vexec_path, Vexec_suffixes) (Vface_font_rescale_alist, Vface_ignored_fonts, Vfeatures) (Vhelp_form, Vhistory_length, Vinhibit_field_text_motion) (Vinhibit_quit, Vinhibit_read_only, Vinhibit_redisplay) (Vinstallation_directory, Vinvocation_directory) (Vinvocation_name, Vload_file_rep_suffixes, Vload_history) (Vload_suffixes, Vmark_even_if_inactive, Vmemory_full) (Vmessage_log_max, Vobarray, Vprint_length, Vprint_level) (Vpurify_flag, Vquit_flag, Vsaved_region_selection) (Vscalable_fonts_allowed, Vselect_active_regions) (Vshell_file_name, Vstandard_input, Vstandard_output) (Vsystem_name, Vtemporary_file_directory, Vthrow_on_input) (Vtop_level, Vtty_erase_char, Vundo_outer_limit) (Vuser_login_name, Vwindow_scroll_functions) (Vwindow_system_version, Vx_no_window_manager) (Vx_resource_class, Vx_resource_name, baud_rate) (completion_ignore_case, debug_on_next_call, gc_cons_threshold) (history_delete_duplicates, inhibit_x_resources) (last_nonmenu_event, load_in_progress, max_specpdl_size) (minibuffer_auto_raise, print_escape_newlines, scroll_margin) (use_dialog_box, use_file_dialog): Remove declaration. Include globals.h. * keymap.h (Voverriding_local_map) (Voverriding_local_map_menu_flag, meta_prefix_char): Remove declaration. * keyboard.h (Vdouble_click_time, Vfunction_key_map) (Vinput_method_function, Vkey_translation_map) (Vlucid_menu_bar_dirty_flag, Vthis_original_command) (do_mouse_tracking, extra_keyboard_modifiers) (num_nonmacro_input_events): Remove declaration. * intervals.h (Vchar_property_alias_alist) (Vdefault_text_properties, Vinhibit_point_motion_hooks) (Vtext_property_default_nonsticky): Remove declaration. * gtkutil.h (x_gtk_file_dialog_help_text) (x_gtk_show_hidden_files, x_gtk_use_old_file_dialog) (x_gtk_whole_detached_tool_bar): Remove declaration. * frame.h (Vdefault_frame_alist, Vframe_alpha_lower_limit) (Vmenu_bar_mode, Vmouse_highlight, Vterminal_frame) (Vtool_bar_mode, Vx_resource_class, Vx_resource_name) (focus_follows_mouse): Remove declaration. * fontset.h (Valternate_fontname_alist, Vfontset_alias_alist) (Vignore_relative_composition, Votf_script_alist) (Vuse_default_ascent, Vvertical_centering_font_regexp): Remove declaration. * font.h (Vfont_log): Remove declaration. * dosfns.h (Vdos_display_scancodes, Vdos_version) (Vdos_windows_version, dos_codepage, dos_country_code) (dos_decimal_point, dos_hyper_key, dos_keyboard_layout) (dos_keypad_mode, dos_super_key, dos_timezone_offset): Remove declaration. * disptab.h (Vglyph_table, Vstandard_display_table): Remove declaration. * dispextern.h (Vface_remapping_alist, Vglyphless_char_display) (Vmouse_autoselect_window, Voverflow_newline_into_fringe) (Vshow_trailing_whitespace, Vtool_bar_button_margin) (Vtool_bar_style, cursor_in_echo_area, display_hourglass_p) (inverse_video, mode_line_in_non_selected_windows) (tool_bar_button_relief, tool_bar_max_label_size) (underline_minimum_offset) (unibyte_display_via_language_environment, x_stretch_cursor_p): Remove declaration. * composite.h (Vauto_composition_function) (Vcomposition_function_table): Remove declaration. * commands.h (Vexecuting_kbd_macro) (Vminibuffer_local_completion_map) (Vminibuffer_local_filename_completion_map) (Vminibuffer_local_filename_must_match_map) (Vminibuffer_local_map, Vminibuffer_local_must_match_map) (Vminibuffer_local_ns_map, Vthis_command) (Vunread_command_events, cursor_in_echo_area) (last_command_event, last_nonmenu_event, unread_command_char): Remove declaration. * coding.h (Vcoding_system_for_read, Vcoding_system_for_write) (Vdefault_file_name_coding_system) (Vdefault_process_coding_system, Vfile_name_coding_system) (Vlast_coding_system_used, Vlocale_coding_system) (Vselect_safe_coding_system_function) (Vtranslation_table_for_input, coding_system_require_warning) (eol_mnemonic_dos, eol_mnemonic_mac, eol_mnemonic_undecided) (eol_mnemonic_unix, inherit_process_coding_system): Remove declaration. * charset.h (Vcharset_list, Vcurrent_iso639_language): Remove declaration. * character.h (Vauto_fill_chars, Vchar_direction_table) (Vchar_script_table, Vchar_width_table, Vprintable_chars) (Vscript_representative_chars, Vtranslation_table_vector) (Vunicode_category_table): Remove declaration. * ccl.h (Vfont_ccl_encoder_alist): Remove declaration. * buffer.h (Vafter_change_functions, Vbefore_change_functions) (Vdeactivate_mark, Vfirst_change_hook, Vtransient_mark_mode) (inhibit_modification_hooks): Remove declaration. * xterm.c (syms_of_xterm): Update. (Vx_alt_keysym, Vx_hyper_keysym, Vx_keysym_table) (Vx_meta_keysym, Vx_super_keysym, Vx_toolkit_scroll_bars) (x_mouse_click_focus_ignore_position) (x_underline_at_descent_line) (x_use_underline_position_properties): Remove. * xsmfns.c (syms_of_xsmfns): Update. (Vx_session_id, Vx_session_previous_id): Remove. * xsettings.c (syms_of_xsettings): Update. (Vxft_settings, use_system_font): Remove. * xselect.c (syms_of_xselect): Update. (Vselection_converter_alist, Vx_lost_selection_functions) (Vx_sent_selection_functions, x_selection_timeout): Remove. * xfns.c (syms_of_xfns): Update. (Vgtk_version_string, Vmotif_version_string) (Vx_cursor_fore_pixel, Vx_hourglass_pointer_shape) (Vx_max_tooltip_size, Vx_mode_pointer_shape) (Vx_no_window_manager, Vx_nontext_pointer_shape) (Vx_pixel_size_width_font_regexp, Vx_pointer_shape) (Vx_sensitive_text_pointer_shape) (Vx_window_horizontal_drag_shape, x_gtk_file_dialog_help_text) (x_gtk_show_hidden_files, x_gtk_use_old_file_dialog) (x_gtk_use_system_tooltips, x_gtk_whole_detached_tool_bar): Remove. * xfaces.c (syms_of_xfaces): Update. (Vface_default_stipple, Vface_font_rescale_alist) (Vface_ignored_fonts, Vface_new_frame_defaults) (Vface_remapping_alist, Vfont_list_limit) (Vscalable_fonts_allowed, Vtty_defined_color_alist): Remove. * xdisp.c (syms_of_xdisp): Update. (Vauto_resize_tool_bars, Vblink_cursor_alist) (Vdisplay_pixels_per_inch, Vfontification_functions) (Vframe_title_format, Vglobal_mode_string) (Vglyphless_char_display, Vhourglass_delay, Vhscroll_step) (Vicon_title_format, Vinhibit_redisplay) (Vline_number_display_limit, Vline_prefix) (Vmax_mini_window_height, Vmenu_bar_update_hook) (Vmenu_updating_frame, Vmessage_log_max) (Vmouse_autoselect_window, Vnobreak_char_display) (Voverlay_arrow_position, Voverlay_arrow_string) (Voverlay_arrow_variable_list, Vredisplay_end_trigger_functions) (Vresize_mini_windows, Vshow_trailing_whitespace) (Vtool_bar_border, Vtool_bar_button_margin, Vtool_bar_style) (Vtruncate_partial_width_windows, Vvoid_text_area_pointer) (Vwindow_scroll_functions, Vwindow_size_change_functions) (Vwindow_text_change_functions, Vwrap_prefix) (auto_raise_tool_bar_buttons_p, automatic_hscrolling_p) (debug_end_pos, display_hourglass_p, emacs_scroll_step) (highlight_nonselected_windows, hscroll_margin) (inhibit_eval_during_redisplay, inhibit_free_realized_faces) (inhibit_menubar_update, inhibit_try_cursor_movement) (inhibit_try_window_id, inhibit_try_window_reusing) (line_number_display_limit_width) (make_cursor_line_fully_visible_p, message_truncate_lines) (mode_line_inverse_video, multiple_frames, overline_margin) (scroll_conservatively, scroll_margin, tool_bar_button_relief) (tool_bar_max_label_size, underline_minimum_offset) (unibyte_display_via_language_environment, x_stretch_cursor_p): Remove. * window.c (syms_of_window): Update. (Vminibuf_scroll_window, Vother_window_scroll_buffer) (Vrecenter_redisplay, Vscroll_preserve_screen_position) (Vtemp_buffer_show_function, Vwindow_configuration_change_hook) (Vwindow_point_insertion_type, auto_window_vscroll_p) (mode_line_in_non_selected_windows, next_screen_context_lines) (window_min_height, window_min_width): Remove. (scroll_margin): Remove declaration. * w32term.c (syms_of_w32term): Update. (Vw32_capslock_is_shiftlock, Vw32_grab_focus_on_raise) (Vw32_recognize_altgr, Vw32_swap_mouse_buttons) (Vx_toolkit_scroll_bars, w32_num_mouse_buttons) (w32_use_visible_system_caret, x_underline_at_descent_line) (x_use_underline_position_properties): Remove. (Vcommand_line_args, Vsystem_name, extra_keyboard_modifiers): Remove declaration. * w32select.c (syms_of_w32select): Update. (Vnext_selection_coding_system, Vselection_coding_system): Remove. * w32proc.c (syms_of_ntproc): Update. (Vw32_downcase_file_names, Vw32_generate_fake_inodes) (Vw32_get_true_file_attributes, Vw32_quote_process_args) (Vw32_start_process_inherit_error_mode) (Vw32_start_process_share_console) (Vw32_start_process_show_window, w32_pipe_read_delay): Remove. (Vsystem_name): Remove declaration. * w32font.c (syms_of_w32font): Update. (Vw32_charset_info_alist): Remove. * w32fns.c (globals_of_w32fns, syms_of_w32fns): Update. (Vw32_alt_is_meta, Vw32_apps_modifier, Vw32_bdf_filename_alist) (Vw32_color_map, Vw32_enable_caps_lock, Vw32_enable_num_lock) (Vw32_enable_palette, Vw32_lwindow_modifier) (Vw32_pass_alt_to_system, Vw32_pass_lwindow_to_system) (Vw32_pass_rwindow_to_system, Vw32_phantom_key_code) (Vw32_rwindow_modifier, Vw32_scroll_lock_modifier) (Vx_cursor_fore_pixel, Vx_hourglass_pointer_shape) (Vx_max_tooltip_size, Vx_mode_pointer_shape) (Vx_no_window_manager, Vx_nontext_pointer_shape) (Vx_pixel_size_width_font_regexp, Vx_pointer_shape) (Vx_sensitive_text_pointer_shape) (Vx_window_horizontal_drag_shape, w32_ansi_code_page) (w32_enable_synthesized_fonts, w32_mouse_button_tolerance) (w32_mouse_move_interval) (w32_pass_extra_mouse_buttons_to_system) (w32_pass_multimedia_buttons_to_system, w32_quit_key) (w32_strict_fontnames, w32_strict_painting): Remove. (Vhourglass_delay, Vmenu_bar_mode, Vtool_bar_mode) (Vw32_recognize_altgr, Vwindow_system_version) (w32_num_mouse_buttons, w32_use_visible_system_caret): Remove declaration. * w32console.c (syms_of_ntterm): Update. (w32_use_full_screen_buffer): Remove. (Vtty_defined_color_alist): Remove declaration. * w16select.c (syms_of_win16select): Update. (Vnext_selection_coding_system, Vselection_coding_system): Remove. * undo.c (syms_of_undo): Update. (Vundo_outer_limit, Vundo_outer_limit_function) (undo_inhibit_record_point, undo_limit, undo_strong_limit): Remove. * textprop.c (syms_of_textprop): Update. (Vchar_property_alias_alist, Vdefault_text_properties) (Vinhibit_point_motion_hooks, Vtext_property_default_nonsticky): Remove. * terminal.c (syms_of_terminal): Update. (Vdelete_terminal_functions, Vring_bell_function): Remove. * term.c (syms_of_term): Update. (Vresume_tty_functions, Vsuspend_tty_functions) (no_redraw_on_reenter, system_uses_terminfo, visible_cursor): Remove. * syntax.c (syms_of_syntax): Update. (Vfind_word_boundary_function_table, multibyte_syntax_as_symbol) (open_paren_in_column_0_is_defun_start) (parse_sexp_ignore_comments, parse_sexp_lookup_properties) (words_include_escapes): Remove. * search.c (syms_of_search): Update. (Vinhibit_changing_match_data, Vsearch_spaces_regexp): Remove. * process.c (syms_of_process): Update. (Vprocess_adaptive_read_buffering, Vprocess_connection_type) (delete_exited_processes): Remove. * print.c (syms_of_print): Update. (Vfloat_output_format, Vprint_charset_text_property) (Vprint_circle, Vprint_continuous_numbering, Vprint_gensym) (Vprint_length, Vprint_level, Vprint_number_table) (Vstandard_output, print_escape_multibyte) (print_escape_newlines, print_escape_nonascii, print_quoted): Remove. * msdos.c (syms_of_msdos): Update. (Vdos_unsupported_char_glyph): Remove. (unibyte_display_via_language_environment): Remove declaration. * minibuf.c (syms_of_minibuf): Update. (Vcompletion_regexp_list, Vhistory_add_new_input) (Vhistory_length, Vminibuffer_completing_file_name) (Vminibuffer_completion_confirm) (Vminibuffer_completion_predicate, Vminibuffer_completion_table) (Vminibuffer_exit_hook, Vminibuffer_help_form) (Vminibuffer_history_position, Vminibuffer_history_variable) (Vminibuffer_prompt_properties, Vminibuffer_setup_hook) (Vread_buffer_function, Vread_expression_map) (completion_ignore_case, enable_recursive_minibuffers) (history_delete_duplicates, minibuffer_allow_text_properties) (minibuffer_auto_raise, read_buffer_completion_ignore_case): Remove. * marker.c (syms_of_marker): Update. (byte_debug_flag): Remove. * macros.c (syms_of_macros): Update. (Vexecuting_kbd_macro, executing_kbd_macro_index): Remove. * lread.c (syms_of_lread): Update. (Vafter_load_alist, Vbyte_boolean_vars) (Vbytecomp_version_regexp, Vcurrent_load_list) (Veval_buffer_list, Vload_file_name, Vload_file_rep_suffixes) (Vload_history, Vload_path, Vload_read_function) (Vload_source_file_function, Vload_suffixes, Vobarray) (Vold_style_backquotes, Vpreloaded_file_list, Vread_circle) (Vread_symbol_positions_list, Vread_with_symbol_positions) (Vsource_directory, Vstandard_input, Vuser_init_file, Vvalues) (force_load_messages, load_convert_to_unibyte) (load_dangerous_libraries, load_force_doc_strings) (load_in_progress): Remove. * keymap.c (syms_of_keymap): Update. (Vdefine_key_rebound_commands, Vemulation_mode_map_alists) (Vminibuffer_local_completion_map) (Vminibuffer_local_filename_completion_map) (Vminibuffer_local_filename_must_match_map) (Vminibuffer_local_map, Vminibuffer_local_must_match_map) (Vminibuffer_local_ns_map, Vminor_mode_map_alist) (Vminor_mode_overriding_map_alist, Vwhere_is_preferred_modifier): Remove. * keyboard.c (syms_of_keyboard): Update. (Vauto_save_timeout, Vcommand_error_function) (Vcommand_hook_internal, Vdeactivate_mark) (Vdeferred_action_function, Vdeferred_action_list) (Vdisable_point_adjustment, Vdouble_click_time) (Vecho_keystrokes, Venable_disabled_menus_and_buttons) (Vfunction_key_map, Vglobal_disable_point_adjustment) (Vhelp_char, Vhelp_event_list, Vhelp_form) (Vinput_method_function, Vinput_method_previous_message) (Vkey_translation_map, Vlast_event_frame) (Vlucid_menu_bar_dirty_flag, Vmenu_bar_final_items) (Vminibuffer_message_timeout, Voverriding_local_map) (Voverriding_local_map_menu_flag, Vpost_command_hook) (Vpre_command_hook, Vprefix_help_command) (Vsaved_region_selection, Vselect_active_regions) (Vshow_help_function, Vspecial_event_map, Vsuggest_key_bindings) (Vthis_command, Vthis_command_keys_shift_translated) (Vthis_original_command, Vthrow_on_input, Vtimer_idle_list) (Vtimer_list, Vtool_bar_separator_image_expression, Vtop_level) (Vtty_erase_char, Vunread_command_events) (Vunread_input_method_events, Vunread_post_input_method_events) (auto_save_interval, cannot_suspend, do_mouse_tracking) (double_click_fuzz, extra_keyboard_modifiers) (inhibit_local_menu_bar_menus, last_command_event) (last_input_event, last_nonmenu_event, menu_prompt_more_char) (menu_prompting, meta_prefix_char, num_input_keys) (num_nonmacro_input_events, polling_period, unread_command_char): Remove. * insdel.c (syms_of_insdel): Update. (Vcombine_after_change_calls, check_markers_debug_flag): Remove. * indent.c (syms_of_indent): Update. (indent_tabs_mode): Remove. * image.c (syms_of_image): Update. (Vimage_cache_eviction_delay, Vimage_types) (Vimagemagick_render_type, Vmax_image_size, Vx_bitmap_file_path) (cross_disabled_images): Remove. * fringe.c (syms_of_fringe): Update. (Vfringe_bitmaps, Voverflow_newline_into_fringe): Remove. * frame.c (syms_of_frame): Update. (Vdefault_frame_alist, Vdefault_frame_scroll_bars) (Vdelete_frame_functions, Vframe_alpha_lower_limit) (Vmake_pointer_invisible, Vmenu_bar_mode, Vmouse_highlight) (Vmouse_position_function, Vterminal_frame, Vtool_bar_mode) (Vx_resource_class, Vx_resource_name, focus_follows_mouse): Remove. * fontset.c (syms_of_fontset): Update. (Valternate_fontname_alist, Vfont_encoding_charset_alist) (Vfontset_alias_alist, Vignore_relative_composition) (Votf_script_alist, Vuse_default_ascent) (Vvertical_centering_font_regexp): Remove. * font.c (syms_of_font): Update. (Vfont_encoding_alist, Vfont_log, Vfont_slant_table) (Vfont_weight_table, Vfont_width_table): Remove. * fns.c (syms_of_fns): Update. (Vfeatures, use_dialog_box, use_file_dialog): Remove. * filelock.c (syms_of_filelock): Update. (Vtemporary_file_directory): Remove. * fileio.c (syms_of_fileio): Update. (Vafter_insert_file_functions, Vauto_save_include_big_deletions) (Vauto_save_list_file_name, Vauto_save_visited_file_name) (Vdefault_file_name_coding_system, Vfile_name_coding_system) (Vfile_name_handler_alist, Vinhibit_file_name_handlers) (Vinhibit_file_name_operation, Vset_auto_coding_function) (Vwrite_region_annotate_functions) (Vwrite_region_annotations_so_far) (Vwrite_region_post_annotation_function) (delete_by_moving_to_trash, write_region_inhibit_fsync): Remove. (Vw32_get_true_file_attributes): Remove declaration. * eval.c (syms_of_eval): Update. (Vdebug_ignored_errors, Vdebug_on_error, Vdebug_on_signal) (Vdebugger, Vinhibit_quit, Vmacro_declaration_function) (Vquit_flag, Vsignal_hook_function, Vstack_trace_on_error) (debug_on_next_call, debug_on_quit, debugger_may_continue) (max_lisp_eval_depth, max_specpdl_size): Remove. * emacs.c (syms_of_emacs): Update. (Vafter_init_time, Vbefore_init_time, Vcommand_line_args) (Vdynamic_library_alist, Vemacs_copyright, Vemacs_version) (Vinstallation_directory, Vinvocation_directory) (Vinvocation_name, Vkill_emacs_hook, Vpath_separator) (Vprevious_system_messages_locale, Vprevious_system_time_locale) (Vsystem_configuration, Vsystem_configuration_options) (Vsystem_messages_locale, Vsystem_time_locale, Vsystem_type) (inhibit_x_resources, noninteractive1): Remove. * editfns.c (syms_of_editfns): Update. (Vbuffer_access_fontified_property) (Vbuffer_access_fontify_functions, Vinhibit_field_text_motion) (Voperating_system_release, Vsystem_name, Vuser_full_name) (Vuser_login_name, Vuser_real_login_name): Remove. * dosfns.c (syms_of_dosfns): Update. (Vdos_display_scancodes, Vdos_version, Vdos_windows_version) (dos_codepage, dos_country_code, dos_decimal_point) (dos_hyper_key, dos_keyboard_layout, dos_keypad_mode) (dos_super_key, dos_timezone_offset): Remove. * doc.c (syms_of_doc): Update. (Vbuild_files, Vdoc_file_name): Remove. * dispnew.c (syms_of_display): Update. (Vglyph_table, Vinitial_window_system) (Vredisplay_preemption_period, Vstandard_display_table) (Vwindow_system_version, baud_rate, cursor_in_echo_area) (inverse_video, redisplay_dont_pause, visible_bell): Remove. * dired.c (syms_of_dired): Update. (Vcompletion_ignored_extensions): Remove. (Vw32_get_true_file_attributes): Remove declaration. * dbusbind.c (syms_of_dbusbind): Update. (Vdbus_debug, Vdbus_registered_buses) (Vdbus_registered_objects_table): Remove. * data.c (syms_of_data): Update. (Vmost_negative_fixnum, Vmost_positive_fixnum): Remove. * composite.c (syms_of_composite): Update. (Vauto_composition_function, Vauto_composition_mode) (Vcompose_chars_after_function, Vcomposition_function_table): Remove. * coding.c (syms_of_coding): Update. (Vcharset_revision_table, Vcoding_category_list) (Vcoding_system_alist, Vcoding_system_for_read) (Vcoding_system_for_write, Vcoding_system_list) (Vdefault_process_coding_system, Venable_character_translation) (Vfile_coding_system_alist, Vlast_code_conversion_error) (Vlast_coding_system_used, Vlatin_extra_code_table) (Vlocale_coding_system, Vnetwork_coding_system_alist) (Vprocess_coding_system_alist) (Vselect_safe_coding_system_function) (Vstandard_translation_table_for_decode) (Vstandard_translation_table_for_encode) (Vtranslation_table_for_input, coding_system_require_warning) (eol_mnemonic_dos, eol_mnemonic_mac, eol_mnemonic_undecided) (eol_mnemonic_unix, inherit_process_coding_system) (inhibit_eol_conversion, inhibit_iso_escape_detection) (inhibit_null_byte_detection): Remove. * cmds.c (syms_of_cmds): Update. (Vpost_self_insert_hook): Remove. * charset.c (syms_of_charset): Update. (Vcharset_list, Vcharset_map_path, Vcurrent_iso639_language) (inhibit_load_charset_map): Remove. * character.c (syms_of_character): Update. (Vauto_fill_chars, Vchar_direction_table, Vchar_script_table) (Vchar_width_table, Vprintable_chars) (Vscript_representative_chars, Vtranslation_table_vector) (Vunicode_category_table): Remove. * ccl.c (syms_of_ccl): Update. (Vcode_conversion_map_vector, Vfont_ccl_encoder_alist) (Vtranslation_hash_table_vector): Remove. * category.c (syms_of_category): Update. (Vword_combining_categories, Vword_separating_categories): Remove. * callproc.c (syms_of_callproc): Update. (Vconfigure_info_directory, Vdata_directory, Vdoc_directory) (Vexec_directory, Vexec_path, Vexec_suffixes) (Vinitial_environment, Vprocess_environment) (Vshared_game_score_directory, Vshell_file_name): Remove. * callint.c (syms_of_callint): Update. (Vcommand_debug_status, Vcommand_history, Vcurrent_prefix_arg) (Vmark_even_if_inactive, Vmouse_leave_buffer_hook): Remove. * bytecode.c (syms_of_bytecode): Update. (Vbyte_code_meter, byte_metering_on): Remove. * buffer.c (syms_of_buffer): Update. (Vafter_change_functions, Vbefore_change_functions) (Vchange_major_mode_hook, Vfirst_change_hook) (Vinhibit_read_only, Vkill_buffer_query_functions) (Vtransient_mark_mode, inhibit_modification_hooks): Remove. * alloc.c (syms_of_alloc): Update. (Vgc_cons_percentage, Vgc_elapsed, Vmemory_full) (Vmemory_signal_data, Vpost_gc_hook, Vpurify_flag) (cons_cells_consed, floats_consed, garbage_collection_messages) (gc_cons_threshold, gcs_done, intervals_consed) (misc_objects_consed, pure_bytes_used, string_chars_consed) (strings_consed, symbols_consed, vector_cells_consed): Remove. * lisp.h (DEFVAR_LISP, DEFVAR_LISP_NOPRO, DEFVAR_BOOL) (DEFVAR_INT): Assume global is in `globals'. * alloc.c (globals): Define.
author Tom Tromey <tromey@redhat.com>
date Tue, 18 Jan 2011 13:45:37 -0700
parents 7df2e30d72ec
children 9de5a68b57e1
comparison
equal deleted inserted replaced
112363:6a0c66185ba1 112364:42e22c4f06b7
68 Lisp_Object Qweakness; 68 Lisp_Object Qweakness;
69 Lisp_Object Qrehash_size; 69 Lisp_Object Qrehash_size;
70 Lisp_Object Qrehash_threshold; 70 Lisp_Object Qrehash_threshold;
71 71
72 Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list; 72 Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list;
73 Lisp_Object Qvariable_documentation, Vvalues, Vstandard_input, Vafter_load_alist; 73 Lisp_Object Qvariable_documentation;
74 Lisp_Object Qascii_character, Qload, Qload_file_name; 74 Lisp_Object Qascii_character, Qload, Qload_file_name;
75 Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot, Qfunction; 75 Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot, Qfunction;
76 Lisp_Object Qinhibit_file_name_operation; 76 Lisp_Object Qinhibit_file_name_operation;
77 Lisp_Object Qeval_buffer_list, Veval_buffer_list; 77 Lisp_Object Qeval_buffer_list;
78 Lisp_Object Qfile_truename, Qdo_after_load_evaluation; /* ACM 2006/5/16 */ 78 Lisp_Object Qfile_truename, Qdo_after_load_evaluation; /* ACM 2006/5/16 */
79 79
80 /* Used instead of Qget_file_char while loading *.elc files compiled 80 /* Used instead of Qget_file_char while loading *.elc files compiled
81 by Emacs 21 or older. */ 81 by Emacs 21 or older. */
82 static Lisp_Object Qget_emacs_mule_file_char; 82 static Lisp_Object Qget_emacs_mule_file_char;
83 83
84 static Lisp_Object Qload_force_doc_strings; 84 static Lisp_Object Qload_force_doc_strings;
85 85
86 /* non-zero if inside `load' */
87 int load_in_progress;
88 static Lisp_Object Qload_in_progress; 86 static Lisp_Object Qload_in_progress;
89
90 /* Directory in which the sources were found. */
91 Lisp_Object Vsource_directory;
92
93 /* Search path and suffixes for files to be loaded. */
94 Lisp_Object Vload_path, Vload_suffixes, Vload_file_rep_suffixes;
95
96 /* File name of user's init file. */
97 Lisp_Object Vuser_init_file;
98
99 /* This is the user-visible association list that maps features to
100 lists of defs in their load files. */
101 Lisp_Object Vload_history;
102
103 /* This is used to build the load history. */
104 Lisp_Object Vcurrent_load_list;
105
106 /* List of files that were preloaded. */
107 Lisp_Object Vpreloaded_file_list;
108
109 /* Name of file actually being read by `load'. */
110 Lisp_Object Vload_file_name;
111
112 /* Function to use for reading, in `load' and friends. */
113 Lisp_Object Vload_read_function;
114
115 /* Non-nil means read recursive structures using #n= and #n# syntax. */
116 Lisp_Object Vread_circle;
117 87
118 /* The association list of objects read with the #n=object form. 88 /* The association list of objects read with the #n=object form.
119 Each member of the list has the form (n . object), and is used to 89 Each member of the list has the form (n . object), and is used to
120 look up the object for the corresponding #n# construct. 90 look up the object for the corresponding #n# construct.
121 It must be set to nil before all top-level calls to read0. */ 91 It must be set to nil before all top-level calls to read0. */
122 Lisp_Object read_objects; 92 Lisp_Object read_objects;
123 93
124 /* Nonzero means load should forcibly load all dynamic doc strings. */
125 static int load_force_doc_strings;
126
127 /* Nonzero means read should convert strings to unibyte. */
128 static int load_convert_to_unibyte;
129
130 /* Nonzero means READCHAR should read bytes one by one (not character) 94 /* Nonzero means READCHAR should read bytes one by one (not character)
131 when READCHARFUN is Qget_file_char or Qget_emacs_mule_file_char. 95 when READCHARFUN is Qget_file_char or Qget_emacs_mule_file_char.
132 This is set to 1 by read1 temporarily while handling #@NUMBER. */ 96 This is set to 1 by read1 temporarily while handling #@NUMBER. */
133 static int load_each_byte; 97 static int load_each_byte;
134
135 /* Function to use for loading an Emacs Lisp source file (not
136 compiled) instead of readevalloop. */
137 Lisp_Object Vload_source_file_function;
138
139 /* List of all DEFVAR_BOOL variables. Used by the byte optimizer. */
140 Lisp_Object Vbyte_boolean_vars;
141
142 /* Whether or not to add a `read-positions' property to symbols
143 read. */
144 Lisp_Object Vread_with_symbol_positions;
145
146 /* List of (SYMBOL . POSITION) accumulated so far. */
147 Lisp_Object Vread_symbol_positions_list;
148 98
149 /* List of descriptors now open for Fload. */ 99 /* List of descriptors now open for Fload. */
150 static Lisp_Object load_descriptor_list; 100 static Lisp_Object load_descriptor_list;
151 101
152 /* File for get_file_char to read from. Use by load. */ 102 /* File for get_file_char to read from. Use by load. */
187 /* Nonzero means inside a new-style backquote 137 /* Nonzero means inside a new-style backquote
188 with no surrounding parentheses. 138 with no surrounding parentheses.
189 Fread initializes this to zero, so we need not specbind it 139 Fread initializes this to zero, so we need not specbind it
190 or worry about what happens to it when there is an error. */ 140 or worry about what happens to it when there is an error. */
191 static int new_backquote_flag; 141 static int new_backquote_flag;
192 static Lisp_Object Vold_style_backquotes, Qold_style_backquotes; 142 static Lisp_Object Qold_style_backquotes;
193 143
194 /* A list of file names for files being loaded in Fload. Used to 144 /* A list of file names for files being loaded in Fload. Used to
195 check for recursive loads. */ 145 check for recursive loads. */
196 146
197 static Lisp_Object Vloads_in_progress; 147 static Lisp_Object Vloads_in_progress;
198
199 /* Non-zero means load dangerous compiled Lisp files. */
200
201 int load_dangerous_libraries;
202
203 /* Non-zero means force printing messages when loading Lisp files. */
204
205 int force_load_messages;
206
207 /* A regular expression used to detect files compiled with Emacs. */
208
209 static Lisp_Object Vbytecomp_version_regexp;
210 148
211 static int read_emacs_mule_char (int, int (*) (int, Lisp_Object), 149 static int read_emacs_mule_char (int, int (*) (int, Lisp_Object),
212 Lisp_Object); 150 Lisp_Object);
213 151
214 static void readevalloop (Lisp_Object, FILE*, Lisp_Object, 152 static void readevalloop (Lisp_Object, FILE*, Lisp_Object,
3498 else if (defunflag > 0) 3436 else if (defunflag > 0)
3499 read_pure = 1; 3437 read_pure = 1;
3500 } 3438 }
3501 } 3439 }
3502 3440
3503 Lisp_Object Vobarray;
3504 Lisp_Object initial_obarray; 3441 Lisp_Object initial_obarray;
3505 3442
3506 /* oblookup stores the bucket number here, for the sake of Funintern. */ 3443 /* oblookup stores the bucket number here, for the sake of Funintern. */
3507 3444
3508 int oblookup_last_bucket_number; 3445 int oblookup_last_bucket_number;
4180 defsubr (&Sread_event); 4117 defsubr (&Sread_event);
4181 defsubr (&Sget_file_char); 4118 defsubr (&Sget_file_char);
4182 defsubr (&Smapatoms); 4119 defsubr (&Smapatoms);
4183 defsubr (&Slocate_file_internal); 4120 defsubr (&Slocate_file_internal);
4184 4121
4185 DEFVAR_LISP ("obarray", &Vobarray, 4122 DEFVAR_LISP ("obarray", Vobarray,
4186 doc: /* Symbol table for use by `intern' and `read'. 4123 doc: /* Symbol table for use by `intern' and `read'.
4187 It is a vector whose length ought to be prime for best results. 4124 It is a vector whose length ought to be prime for best results.
4188 The vector's contents don't make sense if examined from Lisp programs; 4125 The vector's contents don't make sense if examined from Lisp programs;
4189 to find all the symbols in an obarray, use `mapatoms'. */); 4126 to find all the symbols in an obarray, use `mapatoms'. */);
4190 4127
4191 DEFVAR_LISP ("values", &Vvalues, 4128 DEFVAR_LISP ("values", Vvalues,
4192 doc: /* List of values of all expressions which were read, evaluated and printed. 4129 doc: /* List of values of all expressions which were read, evaluated and printed.
4193 Order is reverse chronological. */); 4130 Order is reverse chronological. */);
4194 4131
4195 DEFVAR_LISP ("standard-input", &Vstandard_input, 4132 DEFVAR_LISP ("standard-input", Vstandard_input,
4196 doc: /* Stream for read to get input from. 4133 doc: /* Stream for read to get input from.
4197 See documentation of `read' for possible values. */); 4134 See documentation of `read' for possible values. */);
4198 Vstandard_input = Qt; 4135 Vstandard_input = Qt;
4199 4136
4200 DEFVAR_LISP ("read-with-symbol-positions", &Vread_with_symbol_positions, 4137 DEFVAR_LISP ("read-with-symbol-positions", Vread_with_symbol_positions,
4201 doc: /* If non-nil, add position of read symbols to `read-symbol-positions-list'. 4138 doc: /* If non-nil, add position of read symbols to `read-symbol-positions-list'.
4202 4139
4203 If this variable is a buffer, then only forms read from that buffer 4140 If this variable is a buffer, then only forms read from that buffer
4204 will be added to `read-symbol-positions-list'. 4141 will be added to `read-symbol-positions-list'.
4205 If this variable is t, then all read forms will be added. 4142 If this variable is t, then all read forms will be added.
4209 The positions are relative to the last call to `read' or 4146 The positions are relative to the last call to `read' or
4210 `read-from-string'. It is probably a bad idea to set this variable at 4147 `read-from-string'. It is probably a bad idea to set this variable at
4211 the toplevel; bind it instead. */); 4148 the toplevel; bind it instead. */);
4212 Vread_with_symbol_positions = Qnil; 4149 Vread_with_symbol_positions = Qnil;
4213 4150
4214 DEFVAR_LISP ("read-symbol-positions-list", &Vread_symbol_positions_list, 4151 DEFVAR_LISP ("read-symbol-positions-list", Vread_symbol_positions_list,
4215 doc: /* A list mapping read symbols to their positions. 4152 doc: /* A list mapping read symbols to their positions.
4216 This variable is modified during calls to `read' or 4153 This variable is modified during calls to `read' or
4217 `read-from-string', but only when `read-with-symbol-positions' is 4154 `read-from-string', but only when `read-with-symbol-positions' is
4218 non-nil. 4155 non-nil.
4219 4156
4224 Note that a symbol will appear multiple times in this list, if it was 4161 Note that a symbol will appear multiple times in this list, if it was
4225 read multiple times. The list is in the same order as the symbols 4162 read multiple times. The list is in the same order as the symbols
4226 were read in. */); 4163 were read in. */);
4227 Vread_symbol_positions_list = Qnil; 4164 Vread_symbol_positions_list = Qnil;
4228 4165
4229 DEFVAR_LISP ("read-circle", &Vread_circle, 4166 DEFVAR_LISP ("read-circle", Vread_circle,
4230 doc: /* Non-nil means read recursive structures using #N= and #N# syntax. */); 4167 doc: /* Non-nil means read recursive structures using #N= and #N# syntax. */);
4231 Vread_circle = Qt; 4168 Vread_circle = Qt;
4232 4169
4233 DEFVAR_LISP ("load-path", &Vload_path, 4170 DEFVAR_LISP ("load-path", Vload_path,
4234 doc: /* *List of directories to search for files to load. 4171 doc: /* *List of directories to search for files to load.
4235 Each element is a string (directory name) or nil (try default directory). 4172 Each element is a string (directory name) or nil (try default directory).
4236 Initialized based on EMACSLOADPATH environment variable, if any, 4173 Initialized based on EMACSLOADPATH environment variable, if any,
4237 otherwise to default specified by file `epaths.h' when Emacs was built. */); 4174 otherwise to default specified by file `epaths.h' when Emacs was built. */);
4238 4175
4239 DEFVAR_LISP ("load-suffixes", &Vload_suffixes, 4176 DEFVAR_LISP ("load-suffixes", Vload_suffixes,
4240 doc: /* List of suffixes for (compiled or source) Emacs Lisp files. 4177 doc: /* List of suffixes for (compiled or source) Emacs Lisp files.
4241 This list should not include the empty string. 4178 This list should not include the empty string.
4242 `load' and related functions try to append these suffixes, in order, 4179 `load' and related functions try to append these suffixes, in order,
4243 to the specified file name if a Lisp suffix is allowed or required. */); 4180 to the specified file name if a Lisp suffix is allowed or required. */);
4244 Vload_suffixes = Fcons (make_pure_c_string (".elc"), 4181 Vload_suffixes = Fcons (make_pure_c_string (".elc"),
4245 Fcons (make_pure_c_string (".el"), Qnil)); 4182 Fcons (make_pure_c_string (".el"), Qnil));
4246 DEFVAR_LISP ("load-file-rep-suffixes", &Vload_file_rep_suffixes, 4183 DEFVAR_LISP ("load-file-rep-suffixes", Vload_file_rep_suffixes,
4247 doc: /* List of suffixes that indicate representations of \ 4184 doc: /* List of suffixes that indicate representations of \
4248 the same file. 4185 the same file.
4249 This list should normally start with the empty string. 4186 This list should normally start with the empty string.
4250 4187
4251 Enabling Auto Compression mode appends the suffixes in 4188 Enabling Auto Compression mode appends the suffixes in
4256 in order to do so. However, if you want to customize which suffixes 4193 in order to do so. However, if you want to customize which suffixes
4257 the loading functions recognize as compression suffixes, you should 4194 the loading functions recognize as compression suffixes, you should
4258 customize `jka-compr-load-suffixes' rather than the present variable. */); 4195 customize `jka-compr-load-suffixes' rather than the present variable. */);
4259 Vload_file_rep_suffixes = Fcons (empty_unibyte_string, Qnil); 4196 Vload_file_rep_suffixes = Fcons (empty_unibyte_string, Qnil);
4260 4197
4261 DEFVAR_BOOL ("load-in-progress", &load_in_progress, 4198 DEFVAR_BOOL ("load-in-progress", load_in_progress,
4262 doc: /* Non-nil if inside of `load'. */); 4199 doc: /* Non-nil if inside of `load'. */);
4263 Qload_in_progress = intern_c_string ("load-in-progress"); 4200 Qload_in_progress = intern_c_string ("load-in-progress");
4264 staticpro (&Qload_in_progress); 4201 staticpro (&Qload_in_progress);
4265 4202
4266 DEFVAR_LISP ("after-load-alist", &Vafter_load_alist, 4203 DEFVAR_LISP ("after-load-alist", Vafter_load_alist,
4267 doc: /* An alist of expressions to be evalled when particular files are loaded. 4204 doc: /* An alist of expressions to be evalled when particular files are loaded.
4268 Each element looks like (REGEXP-OR-FEATURE FORMS...). 4205 Each element looks like (REGEXP-OR-FEATURE FORMS...).
4269 4206
4270 REGEXP-OR-FEATURE is either a regular expression to match file names, or 4207 REGEXP-OR-FEATURE is either a regular expression to match file names, or
4271 a symbol \(a feature name). 4208 a symbol \(a feature name).
4276 4213
4277 An error in FORMS does not undo the load, but does prevent execution of 4214 An error in FORMS does not undo the load, but does prevent execution of
4278 the rest of the FORMS. */); 4215 the rest of the FORMS. */);
4279 Vafter_load_alist = Qnil; 4216 Vafter_load_alist = Qnil;
4280 4217
4281 DEFVAR_LISP ("load-history", &Vload_history, 4218 DEFVAR_LISP ("load-history", Vload_history,
4282 doc: /* Alist mapping loaded file names to symbols and features. 4219 doc: /* Alist mapping loaded file names to symbols and features.
4283 Each alist element should be a list (FILE-NAME ENTRIES...), where 4220 Each alist element should be a list (FILE-NAME ENTRIES...), where
4284 FILE-NAME is the name of a file that has been loaded into Emacs. 4221 FILE-NAME is the name of a file that has been loaded into Emacs.
4285 The file name is absolute and true (i.e. it doesn't contain symlinks). 4222 The file name is absolute and true (i.e. it doesn't contain symlinks).
4286 As an exception, one of the alist elements may have FILE-NAME nil, 4223 As an exception, one of the alist elements may have FILE-NAME nil,
4296 4233
4297 During preloading, the file name recorded is relative to the main Lisp 4234 During preloading, the file name recorded is relative to the main Lisp
4298 directory. These file names are converted to absolute at startup. */); 4235 directory. These file names are converted to absolute at startup. */);
4299 Vload_history = Qnil; 4236 Vload_history = Qnil;
4300 4237
4301 DEFVAR_LISP ("load-file-name", &Vload_file_name, 4238 DEFVAR_LISP ("load-file-name", Vload_file_name,
4302 doc: /* Full name of file being loaded by `load'. */); 4239 doc: /* Full name of file being loaded by `load'. */);
4303 Vload_file_name = Qnil; 4240 Vload_file_name = Qnil;
4304 4241
4305 DEFVAR_LISP ("user-init-file", &Vuser_init_file, 4242 DEFVAR_LISP ("user-init-file", Vuser_init_file,
4306 doc: /* File name, including directory, of user's initialization file. 4243 doc: /* File name, including directory, of user's initialization file.
4307 If the file loaded had extension `.elc', and the corresponding source file 4244 If the file loaded had extension `.elc', and the corresponding source file
4308 exists, this variable contains the name of source file, suitable for use 4245 exists, this variable contains the name of source file, suitable for use
4309 by functions like `custom-save-all' which edit the init file. 4246 by functions like `custom-save-all' which edit the init file.
4310 While Emacs loads and evaluates the init file, value is the real name 4247 While Emacs loads and evaluates the init file, value is the real name
4311 of the file, regardless of whether or not it has the `.elc' extension. */); 4248 of the file, regardless of whether or not it has the `.elc' extension. */);
4312 Vuser_init_file = Qnil; 4249 Vuser_init_file = Qnil;
4313 4250
4314 DEFVAR_LISP ("current-load-list", &Vcurrent_load_list, 4251 DEFVAR_LISP ("current-load-list", Vcurrent_load_list,
4315 doc: /* Used for internal purposes by `load'. */); 4252 doc: /* Used for internal purposes by `load'. */);
4316 Vcurrent_load_list = Qnil; 4253 Vcurrent_load_list = Qnil;
4317 4254
4318 DEFVAR_LISP ("load-read-function", &Vload_read_function, 4255 DEFVAR_LISP ("load-read-function", Vload_read_function,
4319 doc: /* Function used by `load' and `eval-region' for reading expressions. 4256 doc: /* Function used by `load' and `eval-region' for reading expressions.
4320 The default is nil, which means use the function `read'. */); 4257 The default is nil, which means use the function `read'. */);
4321 Vload_read_function = Qnil; 4258 Vload_read_function = Qnil;
4322 4259
4323 DEFVAR_LISP ("load-source-file-function", &Vload_source_file_function, 4260 DEFVAR_LISP ("load-source-file-function", Vload_source_file_function,
4324 doc: /* Function called in `load' for loading an Emacs Lisp source file. 4261 doc: /* Function called in `load' for loading an Emacs Lisp source file.
4325 This function is for doing code conversion before reading the source file. 4262 This function is for doing code conversion before reading the source file.
4326 If nil, loading is done without any code conversion. 4263 If nil, loading is done without any code conversion.
4327 Arguments are FULLNAME, FILE, NOERROR, NOMESSAGE, where 4264 Arguments are FULLNAME, FILE, NOERROR, NOMESSAGE, where
4328 FULLNAME is the full name of FILE. 4265 FULLNAME is the full name of FILE.
4329 See `load' for the meaning of the remaining arguments. */); 4266 See `load' for the meaning of the remaining arguments. */);
4330 Vload_source_file_function = Qnil; 4267 Vload_source_file_function = Qnil;
4331 4268
4332 DEFVAR_BOOL ("load-force-doc-strings", &load_force_doc_strings, 4269 DEFVAR_BOOL ("load-force-doc-strings", load_force_doc_strings,
4333 doc: /* Non-nil means `load' should force-load all dynamic doc strings. 4270 doc: /* Non-nil means `load' should force-load all dynamic doc strings.
4334 This is useful when the file being loaded is a temporary copy. */); 4271 This is useful when the file being loaded is a temporary copy. */);
4335 load_force_doc_strings = 0; 4272 load_force_doc_strings = 0;
4336 4273
4337 DEFVAR_BOOL ("load-convert-to-unibyte", &load_convert_to_unibyte, 4274 DEFVAR_BOOL ("load-convert-to-unibyte", load_convert_to_unibyte,
4338 doc: /* Non-nil means `read' converts strings to unibyte whenever possible. 4275 doc: /* Non-nil means `read' converts strings to unibyte whenever possible.
4339 This is normally bound by `load' and `eval-buffer' to control `read', 4276 This is normally bound by `load' and `eval-buffer' to control `read',
4340 and is not meant for users to change. */); 4277 and is not meant for users to change. */);
4341 load_convert_to_unibyte = 0; 4278 load_convert_to_unibyte = 0;
4342 4279
4343 DEFVAR_LISP ("source-directory", &Vsource_directory, 4280 DEFVAR_LISP ("source-directory", Vsource_directory,
4344 doc: /* Directory in which Emacs sources were found when Emacs was built. 4281 doc: /* Directory in which Emacs sources were found when Emacs was built.
4345 You cannot count on them to still be there! */); 4282 You cannot count on them to still be there! */);
4346 Vsource_directory 4283 Vsource_directory
4347 = Fexpand_file_name (build_string ("../"), 4284 = Fexpand_file_name (build_string ("../"),
4348 Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH))); 4285 Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH)));
4349 4286
4350 DEFVAR_LISP ("preloaded-file-list", &Vpreloaded_file_list, 4287 DEFVAR_LISP ("preloaded-file-list", Vpreloaded_file_list,
4351 doc: /* List of files that were preloaded (when dumping Emacs). */); 4288 doc: /* List of files that were preloaded (when dumping Emacs). */);
4352 Vpreloaded_file_list = Qnil; 4289 Vpreloaded_file_list = Qnil;
4353 4290
4354 DEFVAR_LISP ("byte-boolean-vars", &Vbyte_boolean_vars, 4291 DEFVAR_LISP ("byte-boolean-vars", Vbyte_boolean_vars,
4355 doc: /* List of all DEFVAR_BOOL variables, used by the byte code optimizer. */); 4292 doc: /* List of all DEFVAR_BOOL variables, used by the byte code optimizer. */);
4356 Vbyte_boolean_vars = Qnil; 4293 Vbyte_boolean_vars = Qnil;
4357 4294
4358 DEFVAR_BOOL ("load-dangerous-libraries", &load_dangerous_libraries, 4295 DEFVAR_BOOL ("load-dangerous-libraries", load_dangerous_libraries,
4359 doc: /* Non-nil means load dangerous compiled Lisp files. 4296 doc: /* Non-nil means load dangerous compiled Lisp files.
4360 Some versions of XEmacs use different byte codes than Emacs. These 4297 Some versions of XEmacs use different byte codes than Emacs. These
4361 incompatible byte codes can make Emacs crash when it tries to execute 4298 incompatible byte codes can make Emacs crash when it tries to execute
4362 them. */); 4299 them. */);
4363 load_dangerous_libraries = 0; 4300 load_dangerous_libraries = 0;
4364 4301
4365 DEFVAR_BOOL ("force-load-messages", &force_load_messages, 4302 DEFVAR_BOOL ("force-load-messages", force_load_messages,
4366 doc: /* Non-nil means force printing messages when loading Lisp files. 4303 doc: /* Non-nil means force printing messages when loading Lisp files.
4367 This overrides the value of the NOMESSAGE argument to `load'. */); 4304 This overrides the value of the NOMESSAGE argument to `load'. */);
4368 force_load_messages = 0; 4305 force_load_messages = 0;
4369 4306
4370 DEFVAR_LISP ("bytecomp-version-regexp", &Vbytecomp_version_regexp, 4307 DEFVAR_LISP ("bytecomp-version-regexp", Vbytecomp_version_regexp,
4371 doc: /* Regular expression matching safe to load compiled Lisp files. 4308 doc: /* Regular expression matching safe to load compiled Lisp files.
4372 When Emacs loads a compiled Lisp file, it reads the first 512 bytes 4309 When Emacs loads a compiled Lisp file, it reads the first 512 bytes
4373 from the file, and matches them against this regular expression. 4310 from the file, and matches them against this regular expression.
4374 When the regular expression matches, the file is considered to be safe 4311 When the regular expression matches, the file is considered to be safe
4375 to load. See also `load-dangerous-libraries'. */); 4312 to load. See also `load-dangerous-libraries'. */);
4376 Vbytecomp_version_regexp 4313 Vbytecomp_version_regexp
4377 = make_pure_c_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)"); 4314 = make_pure_c_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)");
4378 4315
4379 DEFVAR_LISP ("eval-buffer-list", &Veval_buffer_list, 4316 DEFVAR_LISP ("eval-buffer-list", Veval_buffer_list,
4380 doc: /* List of buffers being read from by calls to `eval-buffer' and `eval-region'. */); 4317 doc: /* List of buffers being read from by calls to `eval-buffer' and `eval-region'. */);
4381 Veval_buffer_list = Qnil; 4318 Veval_buffer_list = Qnil;
4382 4319
4383 DEFVAR_LISP ("old-style-backquotes", &Vold_style_backquotes, 4320 DEFVAR_LISP ("old-style-backquotes", Vold_style_backquotes,
4384 doc: /* Set to non-nil when `read' encounters an old-style backquote. */); 4321 doc: /* Set to non-nil when `read' encounters an old-style backquote. */);
4385 Vold_style_backquotes = Qnil; 4322 Vold_style_backquotes = Qnil;
4386 Qold_style_backquotes = intern_c_string ("old-style-backquotes"); 4323 Qold_style_backquotes = intern_c_string ("old-style-backquotes");
4387 staticpro (&Qold_style_backquotes); 4324 staticpro (&Qold_style_backquotes);
4388 4325