diff options
| author | Tom Tromey | 2011-01-18 13:45:37 -0700 |
|---|---|---|
| committer | Tom Tromey | 2011-01-18 13:45:37 -0700 |
| commit | 29208e8237a91a28fc5ab30f020ddc65c9ec14b7 (patch) | |
| tree | 541a20f0fdb5d173dadbae010db74b6682e2a26b /src/lread.c | |
| parent | 44ec06d43e437602f6c18ca4ea3efc87bcaf25ea (diff) | |
| download | emacs-29208e8237a91a28fc5ab30f020ddc65c9ec14b7.tar.gz emacs-29208e8237a91a28fc5ab30f020ddc65c9ec14b7.zip | |
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.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 123 |
1 files changed, 30 insertions, 93 deletions
diff --git a/src/lread.c b/src/lread.c index 4c73cc36dcf..60a2778dbbc 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -70,11 +70,11 @@ 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 |
| @@ -83,69 +83,19 @@ 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 | 87 | ||
| 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 | |||
| 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 | 98 | ||
| 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 | |||
| 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 | ||
| @@ -189,25 +139,13 @@ static file_offset prev_saved_doc_string_position; | |||
| 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 | 148 | ||
| 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 | |||
| 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 | ||
| @@ -3500,7 +3438,6 @@ read_list (int flag, register Lisp_Object readcharfun) | |||
| 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. */ |
| @@ -4182,22 +4119,22 @@ syms_of_lread (void) | |||
| 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 |
| @@ -4211,7 +4148,7 @@ The positions are relative to the last call to `read' or | |||
| 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 |
| @@ -4226,24 +4163,24 @@ 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. |
| @@ -4258,12 +4195,12 @@ 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 | ||
| @@ -4278,7 +4215,7 @@ 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. |
| @@ -4298,11 +4235,11 @@ 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 |
| @@ -4311,16 +4248,16 @@ 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. |
| @@ -4329,45 +4266,45 @@ Arguments are FULLNAME, FILE, NOERROR, NOMESSAGE, where | |||
| 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. |
| @@ -4376,11 +4313,11 @@ 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"); |