The bulk of the patch was done by running rewrite-globals.el.
Then a couple minor fixes were applied by hand.
EMACS_INT gc_relative_threshold;
-static Lisp_Object Vgc_cons_percentage;
+static Lisp_Object impl_Vgc_cons_percentage;
/* Minimum number of bytes of consing since GC before next GC,
when memory is full. */
/* Non-nil means defun should do purecopy on the function definition. */
-Lisp_Object Vpurify_flag;
+Lisp_Object impl_Vpurify_flag;
/* Non-nil means we are handling a memory-full error. */
-Lisp_Object Vmemory_full;
+Lisp_Object impl_Vmemory_full;
/* Initialize it to a nonzero value to force it into data space
(rather than bss space). That way unexec will remap it into text
/* Pre-computed signal argument for use when memory is exhausted. */
-Lisp_Object Vmemory_signal_data;
+Lisp_Object impl_Vmemory_signal_data;
/* Maximum amount of C stack to save when a GC happens. */
/* Hook run after GC has finished. */
-Lisp_Object Vpost_gc_hook, Qpost_gc_hook;
+Lisp_Object impl_Vpost_gc_hook, Qpost_gc_hook;
-Lisp_Object Vgc_elapsed; /* accumulated elapsed time in GC */
+Lisp_Object impl_Vgc_elapsed; /* accumulated elapsed time in GC */
EMACS_INT gcs_done; /* accumulated GCs */
static void mark_buffer P_ ((Lisp_Object));
value; otherwise some compilers put it into BSS. */
#define NSTATICS 0x640
-static Lisp_Object *staticvec[NSTATICS] = {&Vpurify_flag};
+static Lisp_Object placeholder;
+static Lisp_Object *staticvec[NSTATICS] = {&placeholder};
/* Index of next unused slot in staticvec. */
Lisp_Object Vbuffer_alist;
/* Functions to call before and after each text change. */
-Lisp_Object Vbefore_change_functions;
-Lisp_Object Vafter_change_functions;
+Lisp_Object impl_Vbefore_change_functions;
+Lisp_Object impl_Vafter_change_functions;
-Lisp_Object Vtransient_mark_mode;
+Lisp_Object impl_Vtransient_mark_mode;
/* t means ignore all read-only text properties.
A list means ignore such a property if its value is a member of the list.
Any non-nil value means ignore buffer-read-only. */
-Lisp_Object Vinhibit_read_only;
+Lisp_Object impl_Vinhibit_read_only;
/* List of functions to call that can query about killing a buffer.
If any of these functions returns nil, we don't kill it. */
-Lisp_Object Vkill_buffer_query_functions;
+Lisp_Object impl_Vkill_buffer_query_functions;
Lisp_Object Qkill_buffer_query_functions;
/* Hook run before changing a major mode. */
-Lisp_Object Vchange_major_mode_hook, Qchange_major_mode_hook;
+Lisp_Object impl_Vchange_major_mode_hook, Qchange_major_mode_hook;
/* List of functions to call before changing an unmodified buffer. */
-Lisp_Object Vfirst_change_hook;
+Lisp_Object impl_Vfirst_change_hook;
Lisp_Object Qfirst_change_hook;
Lisp_Object Qbefore_change_functions;
EXFUN (Fgenerate_new_buffer_name, 2);
/* Functions to call before and after each text change. */
-extern Lisp_Object Vbefore_change_functions;
-extern Lisp_Object Vafter_change_functions;
-extern Lisp_Object Vfirst_change_hook;
+extern Lisp_Object impl_Vbefore_change_functions;
+extern Lisp_Object impl_Vafter_change_functions;
+extern Lisp_Object impl_Vfirst_change_hook;
extern Lisp_Object Qbefore_change_functions;
extern Lisp_Object Qafter_change_functions;
extern Lisp_Object Qfirst_change_hook;
/* If nonzero, all modification hooks are suppressed. */
extern int inhibit_modification_hooks;
-extern Lisp_Object Vdeactivate_mark;
-extern Lisp_Object Vtransient_mark_mode;
+extern Lisp_Object impl_Vdeactivate_mark;
+extern Lisp_Object impl_Vtransient_mark_mode;
\f
/* Overlays */
\f
#ifdef BYTE_CODE_METER
-Lisp_Object Vbyte_code_meter, Qbyte_code_meter;
+Lisp_Object impl_Vbyte_code_meter, Qbyte_code_meter;
int byte_metering_on;
#define METER_2(code1, code2) \
extern Lisp_Object Qfile_directory_p;
extern Lisp_Object Qonly;
-Lisp_Object Vcurrent_prefix_arg, Qminus, Qplus;
+Lisp_Object impl_Vcurrent_prefix_arg, Qminus, Qplus;
Lisp_Object Qcall_interactively;
-Lisp_Object Vcommand_history;
+Lisp_Object impl_Vcommand_history;
-extern Lisp_Object Vhistory_length;
-extern Lisp_Object Vthis_original_command, real_this_command;
+extern Lisp_Object impl_Vhistory_length;
+extern Lisp_Object impl_Vthis_original_command, real_this_command;
extern int history_delete_duplicates;
-Lisp_Object Vcommand_debug_status, Qcommand_debug_status;
+Lisp_Object impl_Vcommand_debug_status, Qcommand_debug_status;
Lisp_Object Qenable_recursive_minibuffers;
extern Lisp_Object Qface, Qminibuffer_prompt;
/* Non-nil means treat the mark as active
even if mark_active is 0. */
-Lisp_Object Vmark_even_if_inactive;
+Lisp_Object impl_Vmark_even_if_inactive;
Lisp_Object Qhandle_shift_selection;
-Lisp_Object Vmouse_leave_buffer_hook, Qmouse_leave_buffer_hook;
+Lisp_Object impl_Vmouse_leave_buffer_hook, Qmouse_leave_buffer_hook;
Lisp_Object Qlist, Qlet, Qletx, Qsave_excursion, Qprogn, Qif, Qwhen;
static Lisp_Object preserved_fns;
#endif
#endif
-Lisp_Object Vexec_path, Vexec_directory, Vexec_suffixes;
-Lisp_Object Vdata_directory, Vdoc_directory;
-Lisp_Object Vconfigure_info_directory, Vshared_game_score_directory;
+Lisp_Object impl_Vexec_path, impl_Vexec_directory, impl_Vexec_suffixes;
+Lisp_Object impl_Vdata_directory, impl_Vdoc_directory;
+Lisp_Object impl_Vconfigure_info_directory, impl_Vshared_game_score_directory;
/* Pattern used by call-process-region to make temp files. */
static Lisp_Object Vtemp_file_name_pattern;
-extern Lisp_Object Vtemporary_file_directory;
+extern Lisp_Object impl_Vtemporary_file_directory;
-Lisp_Object Vshell_file_name;
+Lisp_Object impl_Vshell_file_name;
-Lisp_Object Vprocess_environment, Vinitial_environment;
+Lisp_Object impl_Vprocess_environment, impl_Vinitial_environment;
#ifdef DOS_NT
Lisp_Object Qbuffer_file_type;
Lisp_Object Qcategory_table, Qcategoryp, Qcategorysetp, Qcategory_table_p;
/* Variables to determine word boundary. */
-Lisp_Object Vword_combining_categories, Vword_separating_categories;
+Lisp_Object impl_Vword_combining_categories, impl_Vword_separating_categories;
/* Temporary internal variable used in macro CHAR_HAS_CATEGORY. */
Lisp_Object _temp_category_set;
Lisp_Object Qccl, Qcclp;
/* This contains all code conversion map available to CCL. */
-Lisp_Object Vcode_conversion_map_vector;
+Lisp_Object impl_Vcode_conversion_map_vector;
/* Alist of fontname patterns vs corresponding CCL program. */
-Lisp_Object Vfont_ccl_encoder_alist;
+Lisp_Object impl_Vfont_ccl_encoder_alist;
/* This symbol is a property which associates with ccl program vector.
Ex: (get 'ccl-big5-encoder 'ccl-program) returns ccl program vector. */
Lisp_Object Vccl_program_table;
/* Vector of registered hash tables for translation. */
-Lisp_Object Vtranslation_hash_table_vector;
+Lisp_Object impl_Vtranslation_hash_table_vector;
/* Return a hash table of id number ID. */
#define GET_HASH_TABLE(id) \
#define CODING_SPEC_CCL_PROGRAM(coding) ((coding)->spec.ccl.ccl)
/* Alist of fontname patterns vs corresponding CCL program. */
-extern Lisp_Object Vfont_ccl_encoder_alist;
+extern Lisp_Object impl_Vfont_ccl_encoder_alist;
/* Setup fields of the structure pointed by CCL appropriately for the
execution of ccl program CCL_PROG (symbol or vector). */
/* Vector of translation table ever defined.
ID of a translation table is used to index this vector. */
-Lisp_Object Vtranslation_table_vector;
+Lisp_Object impl_Vtranslation_table_vector;
/* A char-table for characters which may invoke auto-filling. */
-Lisp_Object Vauto_fill_chars;
+Lisp_Object impl_Vauto_fill_chars;
Lisp_Object Qauto_fill_chars;
/* A char-table. An element is non-nil iff the corresponding
character has a printable glyph. */
-Lisp_Object Vprintable_chars;
+Lisp_Object impl_Vprintable_chars;
/* A char-table. An elemnent is a column-width of the corresponding
character. */
-Lisp_Object Vchar_width_table;
+Lisp_Object impl_Vchar_width_table;
/* A char-table. An element is a symbol indicating the direction
property of corresponding character. */
-Lisp_Object Vchar_direction_table;
+Lisp_Object impl_Vchar_direction_table;
/* Variable used locally in the macro FETCH_MULTIBYTE_CHAR. */
unsigned char *_fetch_multibyte_char_p;
/* Char table of scripts. */
-Lisp_Object Vchar_script_table;
+Lisp_Object impl_Vchar_script_table;
/* Alist of scripts vs representative characters. */
-Lisp_Object Vscript_representative_chars;
+Lisp_Object impl_Vscript_representative_chars;
static Lisp_Object Qchar_script_table;
-Lisp_Object Vunicode_category_table;
+Lisp_Object impl_Vunicode_category_table;
+
\f
/* If character code C has modifier masks, reflect them to the
extern int c_string_width P_ ((const unsigned char *, int, int, int *, int *));
extern int lisp_string_width P_ ((Lisp_Object, int, int *, int *));
-extern Lisp_Object Vprintable_chars;
+extern Lisp_Object impl_Vprintable_chars;
extern Lisp_Object Qcharacterp, Qauto_fill_chars;
-extern Lisp_Object Vtranslation_table_vector;
-extern Lisp_Object Vchar_width_table;
-extern Lisp_Object Vchar_direction_table;
+extern Lisp_Object impl_Vtranslation_table_vector;
+extern Lisp_Object impl_Vchar_width_table;
+extern Lisp_Object impl_Vchar_direction_table;
extern Lisp_Object Vchar_unify_table;
-extern Lisp_Object Vunicode_category_table;
+extern Lisp_Object impl_Vunicode_category_table;
extern Lisp_Object string_escape_byte8 P_ ((Lisp_Object));
(XCDR(XVECTOR(Vtranslation_table_vector)->contents[(id)]))
/* A char-table for characters which may invoke auto-filling. */
-extern Lisp_Object Vauto_fill_chars;
+extern Lisp_Object impl_Vauto_fill_chars;
-extern Lisp_Object Vchar_script_table;
-extern Lisp_Object Vscript_representative_chars;
+extern Lisp_Object impl_Vchar_script_table;
+extern Lisp_Object impl_Vscript_representative_chars;
/* Copy LEN bytes from FROM to TO. This macro should be used only
when a caller knows that LEN is short and the obvious copy loop is
/* List of all charsets. This variable is used only from Emacs
Lisp. */
-Lisp_Object Vcharset_list;
+Lisp_Object impl_Vcharset_list;
/* Hash table that contains attributes of each charset. Keys are
charset symbols, and values are vectors of charset attributes. */
CHARS, and FINAL-CHAR) to Emacs' charset. */
int iso_charset_table[ISO_MAX_DIMENSION][ISO_MAX_CHARS][ISO_MAX_FINAL];
-Lisp_Object Vcharset_map_path;
+Lisp_Object impl_Vcharset_map_path;
/* If nonzero, don't load charset maps. */
int inhibit_load_charset_map;
-Lisp_Object Vcurrent_iso639_language;
+Lisp_Object impl_Vcurrent_iso639_language;
/* Defined in chartab.c */
extern void
/* Incremented everytime we change the priority of charsets. */
extern unsigned short charset_ordered_list_tick;
-extern Lisp_Object Vcharset_list;
+extern Lisp_Object impl_Vcharset_list;
extern Lisp_Object Viso_2022_charset_list;
extern Lisp_Object Vemacs_mule_charset_list;
extern struct charset *emacs_mule_charset[256];
-extern Lisp_Object Vcurrent_iso639_language;
+extern Lisp_Object impl_Vcurrent_iso639_language;
/* Macros to access information about charset. */
#include "dispextern.h"
#include "frame.h"
-Lisp_Object Qkill_forward_chars, Qkill_backward_chars, Vblink_paren_function;
+Lisp_Object Qkill_forward_chars, Qkill_backward_chars, impl_Vblink_paren_function;
/* A possible value for a buffer's overwrite-mode variable. */
Lisp_Object Qoverwrite_mode_binary;
/* Non-nil means put this face on the next self-inserting character. */
-Lisp_Object Vself_insert_face;
+Lisp_Object impl_Vself_insert_face;
/* This is the command that set up Vself_insert_face. */
-Lisp_Object Vself_insert_face_command;
+Lisp_Object impl_Vself_insert_face_command;
extern Lisp_Object Qface;
-extern Lisp_Object Vtranslation_table_for_input;
+extern Lisp_Object impl_Vtranslation_table_for_input;
\f
DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0,
doc: /* Return buffer position N characters after (before if N negative) point. */)
int coding_system_require_warning;
-Lisp_Object Vselect_safe_coding_system_function;
+Lisp_Object impl_Vselect_safe_coding_system_function;
/* Mnemonic string for each format of end-of-line. */
-Lisp_Object eol_mnemonic_unix, eol_mnemonic_dos, eol_mnemonic_mac;
+Lisp_Object impl_eol_mnemonic_unix, impl_eol_mnemonic_dos, impl_eol_mnemonic_mac;
/* Mnemonic string to indicate format of end-of-line is not yet
decided. */
-Lisp_Object eol_mnemonic_undecided;
+Lisp_Object impl_eol_mnemonic_undecided;
/* Format of end-of-line decided by system. This is Qunix on
Unix and Mac, Qdos on DOS/Windows.
#ifdef emacs
-Lisp_Object Vcoding_system_list, Vcoding_system_alist;
+Lisp_Object impl_Vcoding_system_list, impl_Vcoding_system_alist;
Lisp_Object Qcoding_system_p, Qcoding_system_error;
/* Coding-systems are handed between Emacs Lisp programs and C internal
routines by the following three variables. */
/* Coding-system for reading files and receiving data from process. */
-Lisp_Object Vcoding_system_for_read;
+Lisp_Object impl_Vcoding_system_for_read;
/* Coding-system for writing files and sending data to process. */
-Lisp_Object Vcoding_system_for_write;
+Lisp_Object impl_Vcoding_system_for_write;
/* Coding-system actually used in the latest I/O. */
-Lisp_Object Vlast_coding_system_used;
+Lisp_Object impl_Vlast_coding_system_used;
/* Set to non-nil when an error is detected while code conversion. */
-Lisp_Object Vlast_code_conversion_error;
+Lisp_Object impl_Vlast_code_conversion_error;
/* A vector of length 256 which contains information about special
Latin codes (especially for dealing with Microsoft codes). */
-Lisp_Object Vlatin_extra_code_table;
+Lisp_Object impl_Vlatin_extra_code_table;
/* Flag to inhibit code conversion of end-of-line format. */
int inhibit_eol_conversion;
terminal coding system is nil. */
struct coding_system safe_terminal_coding;
-Lisp_Object Vfile_coding_system_alist;
-Lisp_Object Vprocess_coding_system_alist;
-Lisp_Object Vnetwork_coding_system_alist;
+Lisp_Object impl_Vfile_coding_system_alist;
+Lisp_Object impl_Vprocess_coding_system_alist;
+Lisp_Object impl_Vnetwork_coding_system_alist;
-Lisp_Object Vlocale_coding_system;
+Lisp_Object impl_Vlocale_coding_system;
#endif /* emacs */
/* Flag to tell if we look up translation table on character code
conversion. */
-Lisp_Object Venable_character_translation;
+Lisp_Object impl_Venable_character_translation;
/* Standard translation table to look up on decoding (reading). */
-Lisp_Object Vstandard_translation_table_for_decode;
+Lisp_Object impl_Vstandard_translation_table_for_decode;
/* Standard translation table to look up on encoding (writing). */
-Lisp_Object Vstandard_translation_table_for_encode;
+Lisp_Object impl_Vstandard_translation_table_for_encode;
Lisp_Object Qtranslation_table;
Lisp_Object Qtranslation_table_id;
Lisp_Object Qtranslation_table_for_encode;
/* Alist of charsets vs revision number. */
-static Lisp_Object Vcharset_revision_table;
+static Lisp_Object impl_Vcharset_revision_table;
/* Default coding systems used for process I/O. */
-Lisp_Object Vdefault_process_coding_system;
+Lisp_Object impl_Vdefault_process_coding_system;
/* Char table for translating Quail and self-inserting input. */
-Lisp_Object Vtranslation_table_for_input;
+Lisp_Object impl_Vtranslation_table_for_input;
/* Two special coding systems. */
Lisp_Object Vsjis_coding_system;
/* List of symbols `coding-category-xxx' ordered by priority. This
variable is exposed to Emacs Lisp. */
-static Lisp_Object Vcoding_category_list;
+static Lisp_Object impl_Vcoding_category_list;
/* Table of coding categories (Lisp symbols). This variable is for
internal use oly. */
extern Lisp_Object Qtranslation_table_id;
/* Mnemonic strings to indicate each type of end-of-line. */
-extern Lisp_Object eol_mnemonic_unix, eol_mnemonic_dos, eol_mnemonic_mac;
+extern Lisp_Object impl_eol_mnemonic_unix, impl_eol_mnemonic_dos, impl_eol_mnemonic_mac;
/* Mnemonic string to indicate type of end-of-line is not yet decided. */
-extern Lisp_Object eol_mnemonic_undecided;
+extern Lisp_Object impl_eol_mnemonic_undecided;
#ifdef emacs
extern Lisp_Object Qfile_coding_system;
extern char *emacs_strerror P_ ((int));
/* Coding-system for reading files and receiving data from process. */
-extern Lisp_Object Vcoding_system_for_read;
+extern Lisp_Object impl_Vcoding_system_for_read;
/* Coding-system for writing files and sending data to process. */
-extern Lisp_Object Vcoding_system_for_write;
+extern Lisp_Object impl_Vcoding_system_for_write;
/* Coding-system actually used in the latest I/O. */
-extern Lisp_Object Vlast_coding_system_used;
+extern Lisp_Object impl_Vlast_coding_system_used;
/* Coding-system to use with system messages (e.g. strerror). */
-extern Lisp_Object Vlocale_coding_system;
+extern Lisp_Object impl_Vlocale_coding_system;
/* If non-zero, process buffer inherits the coding system used to decode
the subprocess output. */
extern struct coding_system safe_terminal_coding;
/* Default coding systems used for process I/O. */
-extern Lisp_Object Vdefault_process_coding_system;
+extern Lisp_Object impl_Vdefault_process_coding_system;
/* Function to call to force a user to force select a propert coding
system. */
-extern Lisp_Object Vselect_safe_coding_system_function;
+extern Lisp_Object impl_Vselect_safe_coding_system_function;
/* If nonzero, on writing a file, Vselect_safe_coding_system_function
is called even if Vcoding_system_for_write is non-nil. */
extern int coding_system_require_warning;
/* Coding system for file names, or nil if none. */
-extern Lisp_Object Vfile_name_coding_system;
+extern Lisp_Object impl_Vfile_name_coding_system;
/* Coding system for file names used only when
Vfile_name_coding_system is nil. */
-extern Lisp_Object Vdefault_file_name_coding_system;
+extern Lisp_Object impl_Vdefault_file_name_coding_system;
#endif
extern Lisp_Object meta_map;
extern Lisp_Object control_x_map;
-extern Lisp_Object Vminibuffer_local_map;
+extern Lisp_Object impl_Vminibuffer_local_map;
-extern Lisp_Object Vminibuffer_local_ns_map;
+extern Lisp_Object impl_Vminibuffer_local_ns_map;
/* keymap used for minibuffers when doing completion */
-extern Lisp_Object Vminibuffer_local_completion_map;
+extern Lisp_Object impl_Vminibuffer_local_completion_map;
/* keymap used for minibuffers when doing completion in filenames*/
-extern Lisp_Object Vminibuffer_local_filename_completion_map;
+extern Lisp_Object impl_Vminibuffer_local_filename_completion_map;
/* keymap used for minibuffers when doing completion and require a match */
-extern Lisp_Object Vminibuffer_local_must_match_map;
+extern Lisp_Object impl_Vminibuffer_local_must_match_map;
/* keymap used for minibuffers when doing completion in filenames
and require a match */
-extern Lisp_Object Vminibuffer_local_filename_must_match_map;
+extern Lisp_Object impl_Vminibuffer_local_filename_must_match_map;
/* Last input event read as a command. */
-extern Lisp_Object last_command_event;
+extern Lisp_Object impl_last_command_event;
/* Last input event read as a command, not counting menus
reached by the mouse. */
-extern Lisp_Object last_nonmenu_event;
+extern Lisp_Object impl_last_nonmenu_event;
/* List of command events to be re-read, or Qnil. */
-extern Lisp_Object Vunread_command_events;
+extern Lisp_Object impl_Vunread_command_events;
/* Command char event to be re-read, or -1 if none.
Setting this is obsolete, but some things should still check it. */
/* The command being executed by the command loop.
Commands may set this, and the value set will be copied into
current_kboard->Vlast_command instead of the actual command. */
-extern Lisp_Object Vthis_command;
+extern Lisp_Object impl_Vthis_command;
/* If not Qnil, this is a switch-frame event which we decided to put
off until the end of a key sequence. This should be read as the
/* Nonzero means ^G can quit instantly */
extern int immediate_quit;
-extern Lisp_Object Vexecuting_kbd_macro;
+extern Lisp_Object impl_Vexecuting_kbd_macro;
/* Nonzero if input is coming from the keyboard */
Lisp_Object composition_hash_table;
/* Function to call to adjust composition. */
-Lisp_Object Vcompose_chars_after_function;
+Lisp_Object impl_Vcompose_chars_after_function;
Lisp_Object Qauto_composed;
-Lisp_Object Vauto_composition_mode;
-Lisp_Object Vauto_composition_function;
+Lisp_Object impl_Vauto_composition_mode;
+Lisp_Object impl_Vauto_composition_function;
Lisp_Object Qauto_composition_function;
-Lisp_Object Vcomposition_function_table;
+Lisp_Object impl_Vcomposition_function_table;
/* Maxinum number of characters to lookback to check
auto-composition. */
extern Lisp_Object Qcomposition;
extern Lisp_Object composition_hash_table;
extern Lisp_Object Qauto_composed;
-extern Lisp_Object Vauto_composition_function;
+extern Lisp_Object impl_Vauto_composition_function;
extern Lisp_Object Qauto_composition_function;
-extern Lisp_Object Vcomposition_function_table;
+extern Lisp_Object impl_Vcomposition_function_table;
extern int get_composition_id P_ ((int, int, int, Lisp_Object, Lisp_Object));
extern int find_composition P_ ((int, int, EMACS_INT *, EMACS_INT *, Lisp_Object *,
static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));
-Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum;
+Lisp_Object impl_Vmost_positive_fixnum, impl_Vmost_negative_fixnum;
void
Lisp_Object QCdbus_type_struct, QCdbus_type_dict_entry;
/* Hash table which keeps function definitions. */
-Lisp_Object Vdbus_registered_objects_table;
+Lisp_Object impl_Vdbus_registered_functions_table;
/* Whether to debug D-Bus. */
-Lisp_Object Vdbus_debug;
+Lisp_Object impl_Vdbus_debug;
/* Whether we are reading a D-Bus event. */
int xd_in_read_queued_messages = 0;
extern int completion_ignore_case;
extern Lisp_Object Qcompletion_ignore_case;
-extern Lisp_Object Vcompletion_regexp_list;
-extern Lisp_Object Vw32_get_true_file_attributes;
+extern Lisp_Object impl_Vcompletion_regexp_list;
+extern Lisp_Object impl_Vw32_get_true_file_attributes;
-Lisp_Object Vcompletion_ignored_extensions;
+Lisp_Object impl_Vcompletion_ignored_extensions;
Lisp_Object Qdirectory_files;
Lisp_Object Qdirectory_files_and_attributes;
Lisp_Object Qfile_name_completion;
/* Margin around tool-bar buttons in pixels. */
-extern Lisp_Object Vtool_bar_button_margin;
+extern Lisp_Object impl_Vtool_bar_button_margin;
/* Thickness of relief to draw around tool-bar buttons. */
int frame_mode_line_height P_ ((struct frame *));
void highlight_trailing_whitespace P_ ((struct frame *, struct glyph_row *));
extern Lisp_Object Qtool_bar;
-extern Lisp_Object Vshow_trailing_whitespace;
+extern Lisp_Object impl_Vshow_trailing_whitespace;
extern int mode_line_in_non_selected_windows;
extern int redisplaying_p;
extern void add_to_log P_ ((char *, Lisp_Object, Lisp_Object));
extern int help_echo_pos;
extern struct frame *last_mouse_frame;
extern int last_tool_bar_item;
-extern Lisp_Object Vmouse_autoselect_window;
+extern Lisp_Object impl_Vmouse_autoselect_window;
extern int unibyte_display_via_language_environment;
extern EMACS_INT underline_minimum_offset;
extern Lisp_Object Qframe_set_background_mode;
extern char unspecified_fg[], unspecified_bg[];
-extern Lisp_Object Vface_remapping_alist;
+extern Lisp_Object impl_Vface_remapping_alist;
/* Defined in xfns.c */
/* If a number (float), check for user input every N seconds. */
-Lisp_Object Vredisplay_preemption_period;
+Lisp_Object impl_Vredisplay_preemption_period;
/* Redisplay preemption timers. */
/* Either nil or a symbol naming the window system under which Emacs
creates the first frame. */
-Lisp_Object Vinitial_window_system;
+Lisp_Object impl_Vinitial_window_system;
/* Version number of X windows: 10, 11 or nil. */
-Lisp_Object Vwindow_system_version;
+Lisp_Object impl_Vwindow_system_version;
/* Vector of glyph definitions. Indexed by glyph number, the contents
are a string which is how to output the glyph.
This is an obsolete feature that is no longer used. The variable
is retained for compatibility. */
-Lisp_Object Vglyph_table;
+Lisp_Object impl_Vglyph_table;
/* Display table to use for vectors that don't specify their own. */
-Lisp_Object Vstandard_display_table;
+Lisp_Object impl_Vstandard_display_table;
/* Nonzero means reading single-character input with prompt so put
cursor on mini-buffer after the prompt. Positive means at end of
int preempt_count = baud_rate / 2400 + 1;
#endif
extern int input_pending;
- extern Lisp_Object do_mouse_tracking;
struct redisplay_interface *rif = FRAME_RIF (XFRAME (WINDOW_FRAME (w)));
#if GLYPH_DEBUG
/* Check that W's frame doesn't have glyph matrices. */
extern struct Lisp_Char_Table *buffer_display_table P_ ((void));
/* Display table to use for vectors that don't specify their own. */
-extern Lisp_Object Vstandard_display_table;
+extern Lisp_Object impl_Vstandard_display_table;
/* This is the `purpose' slot of a display table. */
extern Lisp_Object Qdisplay_table;
/* Vector of GLYPH definitions. Indexed by GLYPH number,
the contents are a string which is how to output the GLYPH. */
-extern Lisp_Object Vglyph_table;
+extern Lisp_Object impl_Vglyph_table;
/* Return the current length of the GLYPH table,
or 0 if the table isn't currently valid. */
extern char *index P_ ((const char *, int));
#endif
-Lisp_Object Vdoc_file_name;
+Lisp_Object impl_Vdoc_file_name;
Lisp_Object Qfunction_documentation;
/* A list of files used to build this Emacs binary. */
-static Lisp_Object Vbuild_files;
+static Lisp_Object impl_Vbuild_files;
-extern Lisp_Object Voverriding_local_map;
+extern Lisp_Object impl_Voverriding_local_map;
extern Lisp_Object Qremap;
EMACS_INT dos_super_key;
EMACS_INT dos_keypad_mode;
-Lisp_Object Vdos_version;
-Lisp_Object Vdos_display_scancodes;
+Lisp_Object impl_Vdos_version;
+Lisp_Object impl_Vdos_display_scancodes;
#ifndef HAVE_X_WINDOWS
static unsigned dos_windows_version;
-Lisp_Object Vdos_windows_version;
+Lisp_Object impl_Vdos_windows_version;
char parent_vm_title[50]; /* Ralf Brown says 30 is enough */
int w95_set_virtual_machine_title (const char *);
#define DOS_COUNTRY_INFO 34 /* no of bytes returned by dos int 38h */
extern unsigned char dos_country_info[DOS_COUNTRY_INFO];
-extern Lisp_Object Vdos_version;
-extern Lisp_Object Vdos_windows_version;
+extern Lisp_Object impl_Vdos_version;
+extern Lisp_Object impl_Vdos_windows_version;
#ifndef HAVE_X_WINDOWS
-extern Lisp_Object Vdos_display_scancodes;
+extern Lisp_Object impl_Vdos_display_scancodes;
extern int msdos_stdcolor_idx P_ ((const char *));
extern Lisp_Object msdos_stdcolor_name P_ ((int));
extern char *index P_ ((const char *, int));
#endif
-Lisp_Object Vbuffer_access_fontify_functions;
+Lisp_Object impl_Vbuffer_access_fontify_functions;
Lisp_Object Qbuffer_access_fontify_functions;
-Lisp_Object Vbuffer_access_fontified_property;
+Lisp_Object impl_Vbuffer_access_fontified_property;
Lisp_Object Fuser_full_name P_ ((Lisp_Object));
/* Non-nil means don't stop at field boundary in text motion commands. */
-Lisp_Object Vinhibit_field_text_motion;
+Lisp_Object impl_Vinhibit_field_text_motion;
/* Some static data, and a function to initialize it for each run */
-Lisp_Object Vsystem_name;
-Lisp_Object Vuser_real_login_name; /* login name of current user ID */
-Lisp_Object Vuser_full_name; /* full name of current user */
-Lisp_Object Vuser_login_name; /* user name from LOGNAME or USER */
-Lisp_Object Voperating_system_release; /* Operating System Release */
+Lisp_Object impl_Vsystem_name;
+Lisp_Object impl_Vuser_real_login_name; /* login name of current user ID */
+Lisp_Object impl_Vuser_full_name; /* full name of current user */
+Lisp_Object impl_Vuser_login_name; /* user name from LOGNAME or USER */
+Lisp_Object impl_Voperating_system_release; /* Operating System Release */
/* Symbol for the text property used to mark fields. */
region_limit (beginningp)
int beginningp;
{
- extern Lisp_Object Vmark_even_if_inactive; /* Defined in callint.c. */
Lisp_Object m;
if (!NILP (Vtransient_mark_mode)
}
}
#ifdef HAVE_MENUS
-extern Lisp_Object last_nonmenu_event;
+extern Lisp_Object impl_last_nonmenu_event;
#endif
DEFUN ("message-or-box", Fmessage_or_box, Smessage_or_box, 1, MANY, 0,
enum pvec_type gdb_pvec_type = PVEC_TYPE_MASK;
/* Command line args from shell, as list of strings. */
-Lisp_Object Vcommand_line_args;
+Lisp_Object impl_Vcommand_line_args;
/* The name under which Emacs was invoked, with any leading directory
names discarded. */
-Lisp_Object Vinvocation_name;
+Lisp_Object impl_Vinvocation_name;
/* The directory name from which Emacs was invoked. */
-Lisp_Object Vinvocation_directory;
+Lisp_Object impl_Vinvocation_directory;
/* The directory name in which to find subdirs such as lisp and etc.
nil means get them only from PATH_LOADSEARCH. */
-Lisp_Object Vinstallation_directory;
+Lisp_Object impl_Vinstallation_directory;
/* The values of `current-time' before and after Emacs initialization. */
-Lisp_Object Vbefore_init_time, Vafter_init_time;
+Lisp_Object impl_Vbefore_init_time, impl_Vafter_init_time;
/* Hook run by `kill-emacs' before it does really anything. */
-Lisp_Object Vkill_emacs_hook;
+Lisp_Object impl_Vkill_emacs_hook;
/* Empty lisp strings. To avoid having to build any others. */
Lisp_Object empty_unibyte_string, empty_multibyte_string;
/* Search path separator. */
-Lisp_Object Vpath_separator;
+Lisp_Object impl_Vpath_separator;
/* Set nonzero after Emacs has started up the first time.
Prevents reinitialization of the Lisp world and keymaps
#endif
/* Variable whose value is symbol giving operating system type. */
-Lisp_Object Vsystem_type;
+Lisp_Object impl_Vsystem_type;
/* Variable whose value is string giving configuration built for. */
-Lisp_Object Vsystem_configuration;
+Lisp_Object impl_Vsystem_configuration;
/* Variable whose value is string giving configuration options,
for use when reporting bugs. */
-Lisp_Object Vsystem_configuration_options;
+Lisp_Object impl_Vsystem_configuration_options;
Lisp_Object Qfile_name_handler_alist;
/* Current and previous system locales for messages and time. */
-Lisp_Object Vsystem_messages_locale;
-Lisp_Object Vprevious_system_messages_locale;
-Lisp_Object Vsystem_time_locale;
-Lisp_Object Vprevious_system_time_locale;
+Lisp_Object impl_Vsystem_messages_locale;
+Lisp_Object impl_Vprevious_system_messages_locale;
+Lisp_Object impl_Vsystem_time_locale;
+Lisp_Object impl_Vprevious_system_time_locale;
/* If non-zero, emacs should not attempt to use a window-specific code,
but instead should use the virtual terminal under which it was started. */
#ifdef HAVE_WINDOW_SYSTEM
-extern Lisp_Object Vinitial_window_system;
+extern Lisp_Object impl_Vinitial_window_system;
#endif /* HAVE_WINDOW_SYSTEM */
-extern Lisp_Object Vauto_save_list_file_name;
+extern Lisp_Object impl_Vauto_save_list_file_name;
-extern Lisp_Object Vinhibit_redisplay;
+extern Lisp_Object impl_Vinhibit_redisplay;
/* Nonzero means running Emacs without interactive terminal. */
#endif
Lisp_Object Qautoload, Qmacro, Qexit, Qinteractive, Qcommandp, Qdefun;
-Lisp_Object Qinhibit_quit, Vinhibit_quit, Vquit_flag;
+Lisp_Object Qinhibit_quit, impl_Vinhibit_quit, impl_Vquit_flag;
Lisp_Object Qand_rest, Qand_optional;
Lisp_Object Qdebug_on_error;
Lisp_Object Qdeclare;
/* List of conditions (non-nil atom means all) which cause a backtrace
if an error is handled by the command loop's error handler. */
-Lisp_Object Vstack_trace_on_error;
+Lisp_Object impl_Vstack_trace_on_error;
/* List of conditions (non-nil atom means all) which enter the debugger
if an error is handled by the command loop's error handler. */
-Lisp_Object Vdebug_on_error;
+Lisp_Object impl_Vdebug_on_error;
/* List of conditions and regexps specifying error messages which
do not enter the debugger even if Vdebug_on_error says they should. */
-Lisp_Object Vdebug_ignored_errors;
+Lisp_Object impl_Vdebug_ignored_errors;
/* Non-nil means call the debugger even if the error will be handled. */
-Lisp_Object Vdebug_on_signal;
+Lisp_Object impl_Vdebug_on_signal;
/* Hook for edebug to use. */
-Lisp_Object Vsignal_hook_function;
+Lisp_Object impl_Vsignal_hook_function;
/* Nonzero means enter debugger if a quit signal
is handled by the command loop's error handler. */
int when_entered_debugger;
-Lisp_Object Vdebugger;
+Lisp_Object impl_Vdebugger;
/* The function from which the last `signal' was called. Set in
Fsignal. */
/* Function to process declarations in defmacro forms. */
-Lisp_Object Vmacro_declaration_function;
+Lisp_Object impl_Vmacro_declaration_function;
extern Lisp_Object Qrisky_local_variable;
register int i;
Lisp_Object tail;
Lisp_Object tem;
- extern Lisp_Object Vprint_level;
struct gcpro gcpro1;
XSETFASTINT (Vprint_level, 3);
Lisp_Object Qauto_save_coding;
/* Coding system for file names, or nil if none. */
-Lisp_Object Vfile_name_coding_system;
+Lisp_Object impl_Vfile_name_coding_system;
/* Coding system for file names used only when
Vfile_name_coding_system is nil. */
-Lisp_Object Vdefault_file_name_coding_system;
+Lisp_Object impl_Vdefault_file_name_coding_system;
/* Alist of elements (REGEXP . HANDLER) for file names
whose I/O is done with a special handler. */
-Lisp_Object Vfile_name_handler_alist;
+Lisp_Object impl_Vfile_name_handler_alist;
/* Property name of a file name handler,
which gives a list of operations it handles.. */
Lisp_Object Qformat_decode, Qformat_annotate_function;
/* Function to be called to decide a coding system of a reading file. */
-Lisp_Object Vset_auto_coding_function;
+Lisp_Object impl_Vset_auto_coding_function;
/* Functions to be called to process text properties in inserted file. */
-Lisp_Object Vafter_insert_file_functions;
+Lisp_Object impl_Vafter_insert_file_functions;
/* Lisp function for setting buffer-file-coding-system and the
multibyteness of the current buffer after inserting a file. */
Lisp_Object Qafter_insert_file_set_coding;
/* Functions to be called to create text property annotations for file. */
-Lisp_Object Vwrite_region_annotate_functions;
+Lisp_Object impl_Vwrite_region_annotate_functions;
Lisp_Object Qwrite_region_annotate_functions;
-Lisp_Object Vwrite_region_post_annotation_function;
+Lisp_Object impl_Vwrite_region_post_annotation_function;
/* During build_annotations, each time an annotation function is called,
this holds the annotations made by the previous functions. */
-Lisp_Object Vwrite_region_annotations_so_far;
+Lisp_Object impl_Vwrite_region_annotations_so_far;
/* Each time an annotation function changes the buffer, the new buffer
is added here. */
Lisp_Object Vwrite_region_annotation_buffers;
/* File name in which we write a list of all our auto save files. */
-Lisp_Object Vauto_save_list_file_name;
+Lisp_Object impl_Vauto_save_list_file_name;
/* Whether or not files are auto-saved into themselves. */
-Lisp_Object Vauto_save_visited_file_name;
+Lisp_Object impl_Vauto_save_visited_file_name;
/* Whether or not to continue auto-saving after a large deletion. */
-Lisp_Object Vauto_save_include_big_deletions;
+Lisp_Object impl_Vauto_save_include_big_deletions;
/* On NT, specifies the directory separator character, used (eg.) when
expanding file names. This can be bound to / or \. */
-Lisp_Object Vdirectory_sep_char;
+Lisp_Object impl_Vdirectory_sep_char;
#ifdef HAVE_FSYNC
/* Nonzero means skip the call to fsync in Fwrite-region. */
/* Lisp function for recursively deleting directories. */
Lisp_Object Qdelete_directory;
-extern Lisp_Object Vuser_login_name;
+extern Lisp_Object impl_Vuser_login_name;
#ifdef WINDOWSNT
-extern Lisp_Object Vw32_get_true_file_attributes;
+extern Lisp_Object impl_Vw32_get_true_file_attributes;
#endif
extern int minibuf_level;
Vinhibit_file_name_operation is the operation being handled.
If we try to handle that operation, we ignore those handlers. */
-static Lisp_Object Vinhibit_file_name_handlers;
-static Lisp_Object Vinhibit_file_name_operation;
+static Lisp_Object impl_Vinhibit_file_name_handlers;
+static Lisp_Object impl_Vinhibit_file_name_operation;
Lisp_Object Qfile_error, Qfile_already_exists, Qfile_date_error;
Lisp_Object Qexcl;
/* The directory for writing temporary files. */
-Lisp_Object Vtemporary_file_directory;
+Lisp_Object impl_Vtemporary_file_directory;
#ifdef CLASH_DETECTION
static time_t boot_time;
static int boot_time_initialized;
-extern Lisp_Object Vshell_file_name;
+extern Lisp_Object impl_Vshell_file_name;
#ifdef BOOT_TIME
static void get_boot_time_1 P_ ((char *, int));
extern int minibuffer_auto_raise;
extern Lisp_Object minibuf_window;
-extern Lisp_Object Vlocale_coding_system;
+extern Lisp_Object impl_Vlocale_coding_system;
extern int load_in_progress;
Lisp_Object Qstring_lessp, Qprovide, Qrequire;
return ret;
}
\f
-Lisp_Object Vfeatures, Qsubfeatures;
-extern Lisp_Object Vafter_load_alist;
+Lisp_Object impl_Vfeatures, Qsubfeatures;
+extern Lisp_Object impl_Vafter_load_alist;
DEFUN ("featurep", Ffeaturep, Sfeaturep, 1, 2, 0,
doc: /* Returns t if FEATURE is present in this Emacs.
Lisp_Object QCuser_spec;
-Lisp_Object Vfont_encoding_alist;
+Lisp_Object impl_Vfont_encoding_alist;
/* Alist of font registry symbol and the corresponding charsets
information. The information is retrieved from
Lisp_Object, int));
/* Return a rescaling ratio of FONT_ENTITY. */
-extern Lisp_Object Vface_font_rescale_alist;
+extern Lisp_Object impl_Vface_font_rescale_alist;
static double
font_rescale_ratio (font_entity)
return table;
}
-Lisp_Object Vfont_log;
+Lisp_Object impl_Vfont_log;
/* The deferred font-log data of the form [ACTION ARG RESULT].
If ACTION is not nil, that is added to the log when font_add_log is
#define FONT_DEBUG
#endif
-extern Lisp_Object Vfont_log;
+extern Lisp_Object impl_Vfont_log;
extern void font_add_log P_ ((char *, Lisp_Object, Lisp_Object));
extern void font_deferred_log P_ ((char *, Lisp_Object, Lisp_Object));
font for each character. */
static Lisp_Object Vdefault_fontset;
-Lisp_Object Vfont_encoding_charset_alist;
-Lisp_Object Vuse_default_ascent;
-Lisp_Object Vignore_relative_composition;
-Lisp_Object Valternate_fontname_alist;
-Lisp_Object Vfontset_alias_alist;
-Lisp_Object Vvertical_centering_font_regexp;
-Lisp_Object Votf_script_alist;
+Lisp_Object impl_Vfont_encoding_charset_alist;
+Lisp_Object impl_Vuse_default_ascent;
+Lisp_Object impl_Vignore_relative_composition;
+Lisp_Object impl_Valternate_fontname_alist;
+Lisp_Object impl_Vfontset_alias_alist;
+Lisp_Object impl_Vvertical_centering_font_regexp;
+Lisp_Object impl_Votf_script_alist;
/* Check if any window system is used now. */
void (*check_window_system_func) P_ ((void));
EXFUN (Fquery_fontset, 2);
extern Lisp_Object list_fontsets P_ ((struct frame *, Lisp_Object, int));
-extern Lisp_Object Vuse_default_ascent;
-extern Lisp_Object Vignore_relative_composition;
-extern Lisp_Object Valternate_fontname_alist;
-extern Lisp_Object Vfontset_alias_alist;
-extern Lisp_Object Vvertical_centering_font_regexp;
-extern Lisp_Object Votf_script_alist;
+extern Lisp_Object impl_Vuse_default_ascent;
+extern Lisp_Object impl_Vignore_relative_composition;
+extern Lisp_Object impl_Valternate_fontname_alist;
+extern Lisp_Object impl_Vfontset_alias_alist;
+extern Lisp_Object impl_Vvertical_centering_font_regexp;
+extern Lisp_Object impl_Votf_script_alist;
extern Lisp_Object fontset_name P_ ((int));
extern Lisp_Object fontset_ascii P_ ((int));
/* If we shall make pointer invisible when typing or not. */
-Lisp_Object Vmake_pointer_invisible;
+Lisp_Object impl_Vmake_pointer_invisible;
#ifdef HAVE_WINDOW_SYSTEM
/* The name we're using in resource queries. Most often "emacs". */
-Lisp_Object Vx_resource_name;
+Lisp_Object impl_Vx_resource_name;
/* The application class we're using in resource queries.
Normally "Emacs". */
-Lisp_Object Vx_resource_class;
+Lisp_Object impl_Vx_resource_class;
/* Lower limit value of the frame opacity (alpha transparency). */
-Lisp_Object Vframe_alpha_lower_limit;
+Lisp_Object impl_Vframe_alpha_lower_limit;
#endif
Lisp_Object Qface_set_after_frame_default;
-Lisp_Object Vterminal_frame;
-Lisp_Object Vdefault_frame_alist;
-Lisp_Object Vdefault_frame_scroll_bars;
-Lisp_Object Vmouse_position_function;
-Lisp_Object Vmouse_highlight;
-static Lisp_Object Vdelete_frame_functions, Qdelete_frame_functions;
+Lisp_Object impl_Vterminal_frame;
+Lisp_Object impl_Vdefault_frame_alist;
+Lisp_Object impl_Vdefault_frame_scroll_bars;
+Lisp_Object impl_Vmouse_position_function;
+Lisp_Object impl_Vmouse_highlight;
+static Lisp_Object impl_Vdelete_frame_functions, Qdelete_frame_functions;
int focus_follows_mouse;
\f
extern Lisp_Object delete_frame P_ ((Lisp_Object, Lisp_Object));
extern Lisp_Object Vframe_list;
-extern Lisp_Object Vdefault_frame_alist;
+extern Lisp_Object impl_Vdefault_frame_alist;
-extern Lisp_Object Vterminal_frame;
+extern Lisp_Object impl_Vterminal_frame;
-extern Lisp_Object Vmouse_highlight;
+extern Lisp_Object impl_Vmouse_highlight;
\f
/* The currently selected frame. */
/* These are in frame.c */
-extern Lisp_Object Vx_resource_name;
-extern Lisp_Object Vx_resource_class;
+extern Lisp_Object impl_Vx_resource_name;
+extern Lisp_Object impl_Vx_resource_class;
extern Lisp_Object Qface_set_after_frame_default;
extern int x_figure_window_size P_ ((struct frame *, Lisp_Object, int));
-extern Lisp_Object Vframe_alpha_lower_limit;
+extern Lisp_Object impl_Vframe_alpha_lower_limit;
extern void x_set_alpha P_ ((struct frame *, Lisp_Object, Lisp_Object));
extern void validate_x_resource_name P_ ((void));
/* Non-nil means that newline may flow into the right fringe. */
-Lisp_Object Voverflow_newline_into_fringe;
+Lisp_Object impl_Voverflow_newline_into_fringe;
/* List of known fringe bitmap symbols.
loading fringe.el.
*/
-Lisp_Object Vfringe_bitmaps;
+Lisp_Object impl_Vfringe_bitmaps;
/* Fringe bitmaps are represented in three different ways:
--- /dev/null
+#define Vafter_change_functions *find_variable_location (&impl_Vafter_change_functions)
+#define Vafter_init_time *find_variable_location (&impl_Vafter_init_time)
+#define Vafter_insert_file_functions *find_variable_location (&impl_Vafter_insert_file_functions)
+#define Vafter_load_alist *find_variable_location (&impl_Vafter_load_alist)
+#define Valternate_fontname_alist *find_variable_location (&impl_Valternate_fontname_alist)
+#define Vauto_composition_mode *find_variable_location (&impl_Vauto_composition_mode)
+#define Vauto_composition_function *find_variable_location (&impl_Vauto_composition_function)
+#define Vauto_fill_chars *find_variable_location (&impl_Vauto_fill_chars)
+#define Vauto_resize_tool_bars *find_variable_location (&impl_Vauto_resize_tool_bars)
+#define Vauto_save_include_big_deletions *find_variable_location (&impl_Vauto_save_include_big_deletions)
+#define Vauto_save_list_file_name *find_variable_location (&impl_Vauto_save_list_file_name)
+#define Vauto_save_timeout *find_variable_location (&impl_Vauto_save_timeout)
+#define Vauto_save_visited_file_name *find_variable_location (&impl_Vauto_save_visited_file_name)
+#define Vbefore_change_functions *find_variable_location (&impl_Vbefore_change_functions)
+#define Vbefore_init_time *find_variable_location (&impl_Vbefore_init_time)
+#define Vblink_cursor_alist *find_variable_location (&impl_Vblink_cursor_alist)
+#define Vblink_paren_function *find_variable_location (&impl_Vblink_paren_function)
+#define Vbuffer_access_fontified_property *find_variable_location (&impl_Vbuffer_access_fontified_property)
+#define Vbuffer_access_fontify_functions *find_variable_location (&impl_Vbuffer_access_fontify_functions)
+#define Vbuild_files *find_variable_location (&impl_Vbuild_files)
+#define Vbyte_boolean_vars *find_variable_location (&impl_Vbyte_boolean_vars)
+#define Vbyte_code_meter *find_variable_location (&impl_Vbyte_code_meter)
+#define Vbytecomp_version_regexp *find_variable_location (&impl_Vbytecomp_version_regexp)
+#define Vchange_major_mode_hook *find_variable_location (&impl_Vchange_major_mode_hook)
+#define Vchar_direction_table *find_variable_location (&impl_Vchar_direction_table)
+#define Vchar_property_alias_alist *find_variable_location (&impl_Vchar_property_alias_alist)
+#define Vchar_script_table *find_variable_location (&impl_Vchar_script_table)
+#define Vchar_width_table *find_variable_location (&impl_Vchar_width_table)
+#define Vcharset_list *find_variable_location (&impl_Vcharset_list)
+#define Vcharset_map_path *find_variable_location (&impl_Vcharset_map_path)
+#define Vcharset_revision_table *find_variable_location (&impl_Vcharset_revision_table)
+#define Vcode_conversion_map_vector *find_variable_location (&impl_Vcode_conversion_map_vector)
+#define Vcoding_category_list *find_variable_location (&impl_Vcoding_category_list)
+#define Vcoding_system_alist *find_variable_location (&impl_Vcoding_system_alist)
+#define Vcoding_system_for_read *find_variable_location (&impl_Vcoding_system_for_read)
+#define Vcoding_system_for_write *find_variable_location (&impl_Vcoding_system_for_write)
+#define Vcoding_system_list *find_variable_location (&impl_Vcoding_system_list)
+#define Vcombine_after_change_calls *find_variable_location (&impl_Vcombine_after_change_calls)
+#define Vcommand_debug_status *find_variable_location (&impl_Vcommand_debug_status)
+#define Vcommand_error_function *find_variable_location (&impl_Vcommand_error_function)
+#define Vcommand_history *find_variable_location (&impl_Vcommand_history)
+#define Vcommand_hook_internal *find_variable_location (&impl_Vcommand_hook_internal)
+#define Vcommand_line_args *find_variable_location (&impl_Vcommand_line_args)
+#define Vcompletion_ignored_extensions *find_variable_location (&impl_Vcompletion_ignored_extensions)
+#define Vcompletion_regexp_list *find_variable_location (&impl_Vcompletion_regexp_list)
+#define Vcompose_chars_after_function *find_variable_location (&impl_Vcompose_chars_after_function)
+#define Vcomposition_function_table *find_variable_location (&impl_Vcomposition_function_table)
+#define Vconfigure_info_directory *find_variable_location (&impl_Vconfigure_info_directory)
+#define Vcurrent_iso639_language *find_variable_location (&impl_Vcurrent_iso639_language)
+#define Vcurrent_load_list *find_variable_location (&impl_Vcurrent_load_list)
+#define Vcurrent_prefix_arg *find_variable_location (&impl_Vcurrent_prefix_arg)
+#define Vdata_directory *find_variable_location (&impl_Vdata_directory)
+#define Vdbus_debug *find_variable_location (&impl_Vdbus_debug)
+#define Vdbus_registered_functions_table *find_variable_location (&impl_Vdbus_registered_functions_table)
+#define Vdeactivate_mark *find_variable_location (&impl_Vdeactivate_mark)
+#define Vdebug_ignored_errors *find_variable_location (&impl_Vdebug_ignored_errors)
+#define Vdebug_on_error *find_variable_location (&impl_Vdebug_on_error)
+#define Vdebug_on_signal *find_variable_location (&impl_Vdebug_on_signal)
+#define Vdebugger *find_variable_location (&impl_Vdebugger)
+#define Vdefault_file_name_coding_system *find_variable_location (&impl_Vdefault_file_name_coding_system)
+#define Vdefault_frame_alist *find_variable_location (&impl_Vdefault_frame_alist)
+#define Vdefault_frame_scroll_bars *find_variable_location (&impl_Vdefault_frame_scroll_bars)
+#define Vdefault_process_coding_system *find_variable_location (&impl_Vdefault_process_coding_system)
+#define Vdefault_text_properties *find_variable_location (&impl_Vdefault_text_properties)
+#define Vdeferred_action_function *find_variable_location (&impl_Vdeferred_action_function)
+#define Vdeferred_action_list *find_variable_location (&impl_Vdeferred_action_list)
+#define Vdefine_key_rebound_commands *find_variable_location (&impl_Vdefine_key_rebound_commands)
+#define Vdelete_frame_functions *find_variable_location (&impl_Vdelete_frame_functions)
+#define Vdelete_terminal_functions *find_variable_location (&impl_Vdelete_terminal_functions)
+#define Vdirectory_sep_char *find_variable_location (&impl_Vdirectory_sep_char)
+#define Vdisable_point_adjustment *find_variable_location (&impl_Vdisable_point_adjustment)
+#define Vdisplay_pixels_per_inch *find_variable_location (&impl_Vdisplay_pixels_per_inch)
+#define Vdoc_directory *find_variable_location (&impl_Vdoc_directory)
+#define Vdoc_file_name *find_variable_location (&impl_Vdoc_file_name)
+#define Vdos_display_scancodes *find_variable_location (&impl_Vdos_display_scancodes)
+#define Vdos_unsupported_char_glyph *find_variable_location (&impl_Vdos_unsupported_char_glyph)
+#define Vdos_version *find_variable_location (&impl_Vdos_version)
+#define Vdos_windows_version *find_variable_location (&impl_Vdos_windows_version)
+#define Vdouble_click_time *find_variable_location (&impl_Vdouble_click_time)
+#define Vecho_keystrokes *find_variable_location (&impl_Vecho_keystrokes)
+#define Vemulation_mode_map_alists *find_variable_location (&impl_Vemulation_mode_map_alists)
+#define Venable_character_translation *find_variable_location (&impl_Venable_character_translation)
+#define Venable_disabled_menus_and_buttons *find_variable_location (&impl_Venable_disabled_menus_and_buttons)
+#define Veval_buffer_list *find_variable_location (&impl_Veval_buffer_list)
+#define Vexec_directory *find_variable_location (&impl_Vexec_directory)
+#define Vexec_path *find_variable_location (&impl_Vexec_path)
+#define Vexec_suffixes *find_variable_location (&impl_Vexec_suffixes)
+#define Vexecuting_kbd_macro *find_variable_location (&impl_Vexecuting_kbd_macro)
+#define Vface_default_stipple *find_variable_location (&impl_Vface_default_stipple)
+#define Vface_font_rescale_alist *find_variable_location (&impl_Vface_font_rescale_alist)
+#define Vface_ignored_fonts *find_variable_location (&impl_Vface_ignored_fonts)
+#define Vface_new_frame_defaults *find_variable_location (&impl_Vface_new_frame_defaults)
+#define Vface_remapping_alist *find_variable_location (&impl_Vface_remapping_alist)
+#define Vfeatures *find_variable_location (&impl_Vfeatures)
+#define Vfile_coding_system_alist *find_variable_location (&impl_Vfile_coding_system_alist)
+#define Vfile_name_coding_system *find_variable_location (&impl_Vfile_name_coding_system)
+#define Vfile_name_handler_alist *find_variable_location (&impl_Vfile_name_handler_alist)
+#define Vfind_word_boundary_function_table *find_variable_location (&impl_Vfind_word_boundary_function_table)
+#define Vfirst_change_hook *find_variable_location (&impl_Vfirst_change_hook)
+#define Vfloat_output_format *find_variable_location (&impl_Vfloat_output_format)
+#define Vfont_ccl_encoder_alist *find_variable_location (&impl_Vfont_ccl_encoder_alist)
+#define Vfont_encoding_alist *find_variable_location (&impl_Vfont_encoding_alist)
+#define Vfont_encoding_charset_alist *find_variable_location (&impl_Vfont_encoding_charset_alist)
+#define Vfont_list_limit *find_variable_location (&impl_Vfont_list_limit)
+#define Vfont_log *find_variable_location (&impl_Vfont_log)
+#define Vfontification_functions *find_variable_location (&impl_Vfontification_functions)
+#define Vfontset_alias_alist *find_variable_location (&impl_Vfontset_alias_alist)
+#define Vframe_alpha_lower_limit *find_variable_location (&impl_Vframe_alpha_lower_limit)
+#define Vframe_title_format *find_variable_location (&impl_Vframe_title_format)
+#define Vfringe_bitmaps *find_variable_location (&impl_Vfringe_bitmaps)
+#define Vfunction_key_map *find_variable_location (&impl_Vfunction_key_map)
+#define Vgc_cons_percentage *find_variable_location (&impl_Vgc_cons_percentage)
+#define Vgc_elapsed *find_variable_location (&impl_Vgc_elapsed)
+#define Vglobal_disable_point_adjustment *find_variable_location (&impl_Vglobal_disable_point_adjustment)
+#define Vglobal_mode_string *find_variable_location (&impl_Vglobal_mode_string)
+#define Vglyph_table *find_variable_location (&impl_Vglyph_table)
+#define Vgtk_version_string *find_variable_location (&impl_Vgtk_version_string)
+#define Vhelp_char *find_variable_location (&impl_Vhelp_char)
+#define Vhelp_event_list *find_variable_location (&impl_Vhelp_event_list)
+#define Vhelp_form *find_variable_location (&impl_Vhelp_form)
+#define Vhistory_add_new_input *find_variable_location (&impl_Vhistory_add_new_input)
+#define Vhistory_length *find_variable_location (&impl_Vhistory_length)
+#define Vhourglass_delay *find_variable_location (&impl_Vhourglass_delay)
+#define Vhscroll_step *find_variable_location (&impl_Vhscroll_step)
+#define Vicon_title_format *find_variable_location (&impl_Vicon_title_format)
+#define Vignore_relative_composition *find_variable_location (&impl_Vignore_relative_composition)
+#define Vimage_cache_eviction_delay *find_variable_location (&impl_Vimage_cache_eviction_delay)
+#define Vimage_library_alist *find_variable_location (&impl_Vimage_library_alist)
+#define Vimage_types *find_variable_location (&impl_Vimage_types)
+#define Vinhibit_changing_match_data *find_variable_location (&impl_Vinhibit_changing_match_data)
+#define Vinhibit_field_text_motion *find_variable_location (&impl_Vinhibit_field_text_motion)
+#define Vinhibit_file_name_handlers *find_variable_location (&impl_Vinhibit_file_name_handlers)
+#define Vinhibit_file_name_operation *find_variable_location (&impl_Vinhibit_file_name_operation)
+#define Vinhibit_point_motion_hooks *find_variable_location (&impl_Vinhibit_point_motion_hooks)
+#define Vinhibit_quit *find_variable_location (&impl_Vinhibit_quit)
+#define Vinhibit_read_only *find_variable_location (&impl_Vinhibit_read_only)
+#define Vinhibit_redisplay *find_variable_location (&impl_Vinhibit_redisplay)
+#define Vinitial_environment *find_variable_location (&impl_Vinitial_environment)
+#define Vinitial_window_system *find_variable_location (&impl_Vinitial_window_system)
+#define Vinput_method_function *find_variable_location (&impl_Vinput_method_function)
+#define Vinput_method_previous_message *find_variable_location (&impl_Vinput_method_previous_message)
+#define Vinstallation_directory *find_variable_location (&impl_Vinstallation_directory)
+#define Vinvocation_directory *find_variable_location (&impl_Vinvocation_directory)
+#define Vinvocation_name *find_variable_location (&impl_Vinvocation_name)
+#define Vkey_translation_map *find_variable_location (&impl_Vkey_translation_map)
+#define Vkill_buffer_query_functions *find_variable_location (&impl_Vkill_buffer_query_functions)
+#define Vkill_emacs_hook *find_variable_location (&impl_Vkill_emacs_hook)
+#define Vlast_code_conversion_error *find_variable_location (&impl_Vlast_code_conversion_error)
+#define Vlast_coding_system_used *find_variable_location (&impl_Vlast_coding_system_used)
+#define Vlast_event_frame *find_variable_location (&impl_Vlast_event_frame)
+#define Vlatin_extra_code_table *find_variable_location (&impl_Vlatin_extra_code_table)
+#define Vline_number_display_limit *find_variable_location (&impl_Vline_number_display_limit)
+#define Vline_prefix *find_variable_location (&impl_Vline_prefix)
+#define Vload_file_name *find_variable_location (&impl_Vload_file_name)
+#define Vload_file_rep_suffixes *find_variable_location (&impl_Vload_file_rep_suffixes)
+#define Vload_history *find_variable_location (&impl_Vload_history)
+#define Vload_path *find_variable_location (&impl_Vload_path)
+#define Vload_read_function *find_variable_location (&impl_Vload_read_function)
+#define Vload_source_file_function *find_variable_location (&impl_Vload_source_file_function)
+#define Vload_suffixes *find_variable_location (&impl_Vload_suffixes)
+#define Vlocale_coding_system *find_variable_location (&impl_Vlocale_coding_system)
+#define Vlucid_menu_bar_dirty_flag *find_variable_location (&impl_Vlucid_menu_bar_dirty_flag)
+#define Vmacro_declaration_function *find_variable_location (&impl_Vmacro_declaration_function)
+#define Vmake_pointer_invisible *find_variable_location (&impl_Vmake_pointer_invisible)
+#define Vmark_even_if_inactive *find_variable_location (&impl_Vmark_even_if_inactive)
+#define Vmax_image_size *find_variable_location (&impl_Vmax_image_size)
+#define Vmax_mini_window_height *find_variable_location (&impl_Vmax_mini_window_height)
+#define Vmemory_full *find_variable_location (&impl_Vmemory_full)
+#define Vmemory_signal_data *find_variable_location (&impl_Vmemory_signal_data)
+#define Vmenu_bar_final_items *find_variable_location (&impl_Vmenu_bar_final_items)
+#define Vmenu_bar_update_hook *find_variable_location (&impl_Vmenu_bar_update_hook)
+#define Vmenu_updating_frame *find_variable_location (&impl_Vmenu_updating_frame)
+#define Vmessage_log_max *find_variable_location (&impl_Vmessage_log_max)
+#define Vminibuf_scroll_window *find_variable_location (&impl_Vminibuf_scroll_window)
+#define Vminibuffer_completing_file_name *find_variable_location (&impl_Vminibuffer_completing_file_name)
+#define Vminibuffer_completion_confirm *find_variable_location (&impl_Vminibuffer_completion_confirm)
+#define Vminibuffer_completion_predicate *find_variable_location (&impl_Vminibuffer_completion_predicate)
+#define Vminibuffer_completion_table *find_variable_location (&impl_Vminibuffer_completion_table)
+#define Vminibuffer_exit_hook *find_variable_location (&impl_Vminibuffer_exit_hook)
+#define Vminibuffer_help_form *find_variable_location (&impl_Vminibuffer_help_form)
+#define Vminibuffer_history_position *find_variable_location (&impl_Vminibuffer_history_position)
+#define Vminibuffer_history_variable *find_variable_location (&impl_Vminibuffer_history_variable)
+#define Vminibuffer_local_completion_map *find_variable_location (&impl_Vminibuffer_local_completion_map)
+#define Vminibuffer_local_filename_completion_map *find_variable_location (&impl_Vminibuffer_local_filename_completion_map)
+#define Vminibuffer_local_filename_must_match_map *find_variable_location (&impl_Vminibuffer_local_filename_must_match_map)
+#define Vminibuffer_local_map *find_variable_location (&impl_Vminibuffer_local_map)
+#define Vminibuffer_local_must_match_map *find_variable_location (&impl_Vminibuffer_local_must_match_map)
+#define Vminibuffer_local_ns_map *find_variable_location (&impl_Vminibuffer_local_ns_map)
+#define Vminibuffer_message_timeout *find_variable_location (&impl_Vminibuffer_message_timeout)
+#define Vminibuffer_prompt_properties *find_variable_location (&impl_Vminibuffer_prompt_properties)
+#define Vminibuffer_setup_hook *find_variable_location (&impl_Vminibuffer_setup_hook)
+#define Vminor_mode_map_alist *find_variable_location (&impl_Vminor_mode_map_alist)
+#define Vminor_mode_overriding_map_alist *find_variable_location (&impl_Vminor_mode_overriding_map_alist)
+#define Vmost_negative_fixnum *find_variable_location (&impl_Vmost_negative_fixnum)
+#define Vmost_positive_fixnum *find_variable_location (&impl_Vmost_positive_fixnum)
+#define Vmotif_version_string *find_variable_location (&impl_Vmotif_version_string)
+#define Vmouse_autoselect_window *find_variable_location (&impl_Vmouse_autoselect_window)
+#define Vmouse_highlight *find_variable_location (&impl_Vmouse_highlight)
+#define Vmouse_leave_buffer_hook *find_variable_location (&impl_Vmouse_leave_buffer_hook)
+#define Vmouse_position_function *find_variable_location (&impl_Vmouse_position_function)
+#define Vnetwork_coding_system_alist *find_variable_location (&impl_Vnetwork_coding_system_alist)
+#define Vnext_selection_coding_system *find_variable_location (&impl_Vnext_selection_coding_system)
+#define Vnobreak_char_display *find_variable_location (&impl_Vnobreak_char_display)
+#define Vobarray *find_variable_location (&impl_Vobarray)
+#define Vold_style_backquotes *find_variable_location (&impl_Vold_style_backquotes)
+#define Voperating_system_release *find_variable_location (&impl_Voperating_system_release)
+#define Votf_script_alist *find_variable_location (&impl_Votf_script_alist)
+#define Vother_window_scroll_buffer *find_variable_location (&impl_Vother_window_scroll_buffer)
+#define Voverflow_newline_into_fringe *find_variable_location (&impl_Voverflow_newline_into_fringe)
+#define Voverlay_arrow_position *find_variable_location (&impl_Voverlay_arrow_position)
+#define Voverlay_arrow_string *find_variable_location (&impl_Voverlay_arrow_string)
+#define Voverlay_arrow_variable_list *find_variable_location (&impl_Voverlay_arrow_variable_list)
+#define Voverriding_local_map *find_variable_location (&impl_Voverriding_local_map)
+#define Voverriding_local_map_menu_flag *find_variable_location (&impl_Voverriding_local_map_menu_flag)
+#define Vpath_separator *find_variable_location (&impl_Vpath_separator)
+#define Vpost_command_hook *find_variable_location (&impl_Vpost_command_hook)
+#define Vpost_gc_hook *find_variable_location (&impl_Vpost_gc_hook)
+#define Vpre_command_hook *find_variable_location (&impl_Vpre_command_hook)
+#define Vprefix_help_command *find_variable_location (&impl_Vprefix_help_command)
+#define Vpreloaded_file_list *find_variable_location (&impl_Vpreloaded_file_list)
+#define Vprevious_system_messages_locale *find_variable_location (&impl_Vprevious_system_messages_locale)
+#define Vprevious_system_time_locale *find_variable_location (&impl_Vprevious_system_time_locale)
+#define Vprint_charset_text_property *find_variable_location (&impl_Vprint_charset_text_property)
+#define Vprint_circle *find_variable_location (&impl_Vprint_circle)
+#define Vprint_continuous_numbering *find_variable_location (&impl_Vprint_continuous_numbering)
+#define Vprint_gensym *find_variable_location (&impl_Vprint_gensym)
+#define Vprint_length *find_variable_location (&impl_Vprint_length)
+#define Vprint_level *find_variable_location (&impl_Vprint_level)
+#define Vprint_number_table *find_variable_location (&impl_Vprint_number_table)
+#define Vprintable_chars *find_variable_location (&impl_Vprintable_chars)
+#define Vprocess_adaptive_read_buffering *find_variable_location (&impl_Vprocess_adaptive_read_buffering)
+#define Vprocess_coding_system_alist *find_variable_location (&impl_Vprocess_coding_system_alist)
+#define Vprocess_connection_type *find_variable_location (&impl_Vprocess_connection_type)
+#define Vprocess_environment *find_variable_location (&impl_Vprocess_environment)
+#define Vpurify_flag *find_variable_location (&impl_Vpurify_flag)
+#define Vquit_flag *find_variable_location (&impl_Vquit_flag)
+#define Vread_buffer_function *find_variable_location (&impl_Vread_buffer_function)
+#define Vread_circle *find_variable_location (&impl_Vread_circle)
+#define Vread_expression_map *find_variable_location (&impl_Vread_expression_map)
+#define Vread_symbol_positions_list *find_variable_location (&impl_Vread_symbol_positions_list)
+#define Vread_with_symbol_positions *find_variable_location (&impl_Vread_with_symbol_positions)
+#define Vrecenter_redisplay *find_variable_location (&impl_Vrecenter_redisplay)
+#define Vredisplay_end_trigger_functions *find_variable_location (&impl_Vredisplay_end_trigger_functions)
+#define Vredisplay_preemption_period *find_variable_location (&impl_Vredisplay_preemption_period)
+#define Vresize_mini_windows *find_variable_location (&impl_Vresize_mini_windows)
+#define Vresume_tty_functions *find_variable_location (&impl_Vresume_tty_functions)
+#define Vring_bell_function *find_variable_location (&impl_Vring_bell_function)
+#define Vscalable_fonts_allowed *find_variable_location (&impl_Vscalable_fonts_allowed)
+#define Vscript_representative_chars *find_variable_location (&impl_Vscript_representative_chars)
+#define Vscroll_preserve_screen_position *find_variable_location (&impl_Vscroll_preserve_screen_position)
+#define Vsearch_spaces_regexp *find_variable_location (&impl_Vsearch_spaces_regexp)
+#define Vselect_safe_coding_system_function *find_variable_location (&impl_Vselect_safe_coding_system_function)
+#define Vselection_coding_system *find_variable_location (&impl_Vselection_coding_system)
+#define Vselection_converter_alist *find_variable_location (&impl_Vselection_converter_alist)
+#define Vself_insert_face *find_variable_location (&impl_Vself_insert_face)
+#define Vself_insert_face_command *find_variable_location (&impl_Vself_insert_face_command)
+#define Vset_auto_coding_function *find_variable_location (&impl_Vset_auto_coding_function)
+#define Vshared_game_score_directory *find_variable_location (&impl_Vshared_game_score_directory)
+#define Vshell_file_name *find_variable_location (&impl_Vshell_file_name)
+#define Vshow_help_function *find_variable_location (&impl_Vshow_help_function)
+#define Vshow_trailing_whitespace *find_variable_location (&impl_Vshow_trailing_whitespace)
+#define Vsignal_hook_function *find_variable_location (&impl_Vsignal_hook_function)
+#define Vsource_directory *find_variable_location (&impl_Vsource_directory)
+#define Vspecial_event_map *find_variable_location (&impl_Vspecial_event_map)
+#define Vstack_trace_on_error *find_variable_location (&impl_Vstack_trace_on_error)
+#define Vstandard_display_table *find_variable_location (&impl_Vstandard_display_table)
+#define Vstandard_input *find_variable_location (&impl_Vstandard_input)
+#define Vstandard_output *find_variable_location (&impl_Vstandard_output)
+#define Vstandard_translation_table_for_decode *find_variable_location (&impl_Vstandard_translation_table_for_decode)
+#define Vstandard_translation_table_for_encode *find_variable_location (&impl_Vstandard_translation_table_for_encode)
+#define Vsuggest_key_bindings *find_variable_location (&impl_Vsuggest_key_bindings)
+#define Vsuspend_tty_functions *find_variable_location (&impl_Vsuspend_tty_functions)
+#define Vsystem_configuration *find_variable_location (&impl_Vsystem_configuration)
+#define Vsystem_configuration_options *find_variable_location (&impl_Vsystem_configuration_options)
+#define Vsystem_messages_locale *find_variable_location (&impl_Vsystem_messages_locale)
+#define Vsystem_name *find_variable_location (&impl_Vsystem_name)
+#define Vsystem_time_locale *find_variable_location (&impl_Vsystem_time_locale)
+#define Vsystem_type *find_variable_location (&impl_Vsystem_type)
+#define Vtemp_buffer_show_function *find_variable_location (&impl_Vtemp_buffer_show_function)
+#define Vtemporary_file_directory *find_variable_location (&impl_Vtemporary_file_directory)
+#define Vterminal_frame *find_variable_location (&impl_Vterminal_frame)
+#define Vtext_property_default_nonsticky *find_variable_location (&impl_Vtext_property_default_nonsticky)
+#define Vthis_command *find_variable_location (&impl_Vthis_command)
+#define Vthis_command_keys_shift_translated *find_variable_location (&impl_Vthis_command_keys_shift_translated)
+#define Vthis_original_command *find_variable_location (&impl_Vthis_original_command)
+#define Vthrow_on_input *find_variable_location (&impl_Vthrow_on_input)
+#define Vtimer_idle_list *find_variable_location (&impl_Vtimer_idle_list)
+#define Vtimer_list *find_variable_location (&impl_Vtimer_list)
+#define Vtool_bar_border *find_variable_location (&impl_Vtool_bar_border)
+#define Vtool_bar_button_margin *find_variable_location (&impl_Vtool_bar_button_margin)
+#define Vtop_level *find_variable_location (&impl_Vtop_level)
+#define Vtransient_mark_mode *find_variable_location (&impl_Vtransient_mark_mode)
+#define Vtranslation_hash_table_vector *find_variable_location (&impl_Vtranslation_hash_table_vector)
+#define Vtranslation_table_for_input *find_variable_location (&impl_Vtranslation_table_for_input)
+#define Vtranslation_table_vector *find_variable_location (&impl_Vtranslation_table_vector)
+#define Vtruncate_partial_width_windows *find_variable_location (&impl_Vtruncate_partial_width_windows)
+#define Vtty_defined_color_alist *find_variable_location (&impl_Vtty_defined_color_alist)
+#define Vtty_erase_char *find_variable_location (&impl_Vtty_erase_char)
+#define Vundo_outer_limit *find_variable_location (&impl_Vundo_outer_limit)
+#define Vundo_outer_limit_function *find_variable_location (&impl_Vundo_outer_limit_function)
+#define Vunicode_category_table *find_variable_location (&impl_Vunicode_category_table)
+#define Vunread_command_events *find_variable_location (&impl_Vunread_command_events)
+#define Vunread_input_method_events *find_variable_location (&impl_Vunread_input_method_events)
+#define Vunread_post_input_method_events *find_variable_location (&impl_Vunread_post_input_method_events)
+#define Vuse_default_ascent *find_variable_location (&impl_Vuse_default_ascent)
+#define Vuser_full_name *find_variable_location (&impl_Vuser_full_name)
+#define Vuser_init_file *find_variable_location (&impl_Vuser_init_file)
+#define Vuser_login_name *find_variable_location (&impl_Vuser_login_name)
+#define Vuser_real_login_name *find_variable_location (&impl_Vuser_real_login_name)
+#define Vvalues *find_variable_location (&impl_Vvalues)
+#define Vvertical_centering_font_regexp *find_variable_location (&impl_Vvertical_centering_font_regexp)
+#define Vvoid_text_area_pointer *find_variable_location (&impl_Vvoid_text_area_pointer)
+#define Vw32_alt_is_meta *find_variable_location (&impl_Vw32_alt_is_meta)
+#define Vw32_apps_modifier *find_variable_location (&impl_Vw32_apps_modifier)
+#define Vw32_bdf_filename_alist *find_variable_location (&impl_Vw32_bdf_filename_alist)
+#define Vw32_capslock_is_shiftlock *find_variable_location (&impl_Vw32_capslock_is_shiftlock)
+#define Vw32_charset_info_alist *find_variable_location (&impl_Vw32_charset_info_alist)
+#define Vw32_color_map *find_variable_location (&impl_Vw32_color_map)
+#define Vw32_downcase_file_names *find_variable_location (&impl_Vw32_downcase_file_names)
+#define Vw32_enable_caps_lock *find_variable_location (&impl_Vw32_enable_caps_lock)
+#define Vw32_enable_num_lock *find_variable_location (&impl_Vw32_enable_num_lock)
+#define Vw32_enable_palette *find_variable_location (&impl_Vw32_enable_palette)
+#define Vw32_generate_fake_inodes *find_variable_location (&impl_Vw32_generate_fake_inodes)
+#define Vw32_get_true_file_attributes *find_variable_location (&impl_Vw32_get_true_file_attributes)
+#define Vw32_grab_focus_on_raise *find_variable_location (&impl_Vw32_grab_focus_on_raise)
+#define Vw32_lwindow_modifier *find_variable_location (&impl_Vw32_lwindow_modifier)
+#define Vw32_pass_alt_to_system *find_variable_location (&impl_Vw32_pass_alt_to_system)
+#define Vw32_pass_lwindow_to_system *find_variable_location (&impl_Vw32_pass_lwindow_to_system)
+#define Vw32_pass_rwindow_to_system *find_variable_location (&impl_Vw32_pass_rwindow_to_system)
+#define Vw32_phantom_key_code *find_variable_location (&impl_Vw32_phantom_key_code)
+#define Vw32_quote_process_args *find_variable_location (&impl_Vw32_quote_process_args)
+#define Vw32_recognize_altgr *find_variable_location (&impl_Vw32_recognize_altgr)
+#define Vw32_rwindow_modifier *find_variable_location (&impl_Vw32_rwindow_modifier)
+#define Vw32_scroll_lock_modifier *find_variable_location (&impl_Vw32_scroll_lock_modifier)
+#define Vw32_start_process_inherit_error_mode *find_variable_location (&impl_Vw32_start_process_inherit_error_mode)
+#define Vw32_start_process_share_console *find_variable_location (&impl_Vw32_start_process_share_console)
+#define Vw32_start_process_show_window *find_variable_location (&impl_Vw32_start_process_show_window)
+#define Vw32_swap_mouse_buttons *find_variable_location (&impl_Vw32_swap_mouse_buttons)
+#define Vwhere_is_preferred_modifier *find_variable_location (&impl_Vwhere_is_preferred_modifier)
+#define Vwindow_configuration_change_hook *find_variable_location (&impl_Vwindow_configuration_change_hook)
+#define Vwindow_point_insertion_type *find_variable_location (&impl_Vwindow_point_insertion_type)
+#define Vwindow_scroll_functions *find_variable_location (&impl_Vwindow_scroll_functions)
+#define Vwindow_size_change_functions *find_variable_location (&impl_Vwindow_size_change_functions)
+#define Vwindow_system_version *find_variable_location (&impl_Vwindow_system_version)
+#define Vwindow_text_change_functions *find_variable_location (&impl_Vwindow_text_change_functions)
+#define Vword_combining_categories *find_variable_location (&impl_Vword_combining_categories)
+#define Vword_separating_categories *find_variable_location (&impl_Vword_separating_categories)
+#define Vwrap_prefix *find_variable_location (&impl_Vwrap_prefix)
+#define Vwrite_region_annotate_functions *find_variable_location (&impl_Vwrite_region_annotate_functions)
+#define Vwrite_region_annotations_so_far *find_variable_location (&impl_Vwrite_region_annotations_so_far)
+#define Vwrite_region_post_annotation_function *find_variable_location (&impl_Vwrite_region_post_annotation_function)
+#define Vx_alt_keysym *find_variable_location (&impl_Vx_alt_keysym)
+#define Vx_bitmap_file_path *find_variable_location (&impl_Vx_bitmap_file_path)
+#define Vx_cursor_fore_pixel *find_variable_location (&impl_Vx_cursor_fore_pixel)
+#define Vx_hourglass_pointer_shape *find_variable_location (&impl_Vx_hourglass_pointer_shape)
+#define Vx_hyper_keysym *find_variable_location (&impl_Vx_hyper_keysym)
+#define Vx_keysym_table *find_variable_location (&impl_Vx_keysym_table)
+#define Vx_lost_selection_functions *find_variable_location (&impl_Vx_lost_selection_functions)
+#define Vx_max_tooltip_size *find_variable_location (&impl_Vx_max_tooltip_size)
+#define Vx_meta_keysym *find_variable_location (&impl_Vx_meta_keysym)
+#define Vx_mode_pointer_shape *find_variable_location (&impl_Vx_mode_pointer_shape)
+#define Vx_no_window_manager *find_variable_location (&impl_Vx_no_window_manager)
+#define Vx_nontext_pointer_shape *find_variable_location (&impl_Vx_nontext_pointer_shape)
+#define Vx_pixel_size_width_font_regexp *find_variable_location (&impl_Vx_pixel_size_width_font_regexp)
+#define Vx_pointer_shape *find_variable_location (&impl_Vx_pointer_shape)
+#define Vx_resource_class *find_variable_location (&impl_Vx_resource_class)
+#define Vx_resource_name *find_variable_location (&impl_Vx_resource_name)
+#define Vx_sensitive_text_pointer_shape *find_variable_location (&impl_Vx_sensitive_text_pointer_shape)
+#define Vx_sent_selection_functions *find_variable_location (&impl_Vx_sent_selection_functions)
+#define Vx_session_id *find_variable_location (&impl_Vx_session_id)
+#define Vx_session_previous_id *find_variable_location (&impl_Vx_session_previous_id)
+#define Vx_super_keysym *find_variable_location (&impl_Vx_super_keysym)
+#define Vx_toolkit_scroll_bars *find_variable_location (&impl_Vx_toolkit_scroll_bars)
+#define Vx_window_horizontal_drag_shape *find_variable_location (&impl_Vx_window_horizontal_drag_shape)
+#define do_mouse_tracking *find_variable_location (&impl_do_mouse_tracking)
+#define eol_mnemonic_dos *find_variable_location (&impl_eol_mnemonic_dos)
+#define eol_mnemonic_mac *find_variable_location (&impl_eol_mnemonic_mac)
+#define eol_mnemonic_undecided *find_variable_location (&impl_eol_mnemonic_undecided)
+#define eol_mnemonic_unix *find_variable_location (&impl_eol_mnemonic_unix)
+#define last_command_event *find_variable_location (&impl_last_command_event)
+#define last_input_event *find_variable_location (&impl_last_input_event)
+#define last_nonmenu_event *find_variable_location (&impl_last_nonmenu_event)
+#define menu_prompt_more_char *find_variable_location (&impl_menu_prompt_more_char)
+#define meta_prefix_char *find_variable_location (&impl_meta_prefix_char)
+#define no_cell *find_variable_location (&impl_no_cell)
+
+extern Lisp_Object impl_do_mouse_tracking;
+extern Lisp_Object impl_Vmark_even_if_inactive;
+extern Lisp_Object impl_Vprint_level;
/* Search path for bitmap files. */
-Lisp_Object Vx_bitmap_file_path;
+Lisp_Object impl_Vx_bitmap_file_path;
static void x_disable_image P_ ((struct frame *, struct image *));
/* A list of symbols, one for each supported image type. */
-Lisp_Object Vimage_types;
+Lisp_Object impl_Vimage_types;
/* An alist of image types and libraries that implement the type. */
-Lisp_Object Vimage_library_alist;
+Lisp_Object impl_Vimage_library_alist;
/* Cache for delayed-loading image types. */
/* Time in seconds after which images should be removed from the cache
if not displayed. */
-Lisp_Object Vimage_cache_eviction_delay;
+Lisp_Object impl_Vimage_cache_eviction_delay;
/* Function prototypes. */
static int check_image_size P_ ((struct frame *f, int width, int height));
#define MAX_IMAGE_SIZE 6.0
-Lisp_Object Vmax_image_size;
+Lisp_Object impl_Vmax_image_size;
/* Allocate and return a new image structure for image specification
SPEC. SPEC has a hash value of HASH. */
/* Non-nil means don't call the after-change-functions right away,
just record an element in Vcombine_after_change_calls_list. */
-Lisp_Object Vcombine_after_change_calls;
+Lisp_Object impl_Vcombine_after_change_calls;
/* List of elements of the form (BEG-UNCHANGED END-UNCHANGED CHANGE-AMOUNT)
describing changes which happened while combine_after_change_calls
extern Lisp_Object Qforeground, Qbackground, Qfont, Qunderline, Qstipple;
extern Lisp_Object Qinvisible, Qintangible, Qread_only;
-extern Lisp_Object Vinhibit_point_motion_hooks;
-extern Lisp_Object Vdefault_text_properties;
-extern Lisp_Object Vchar_property_alias_alist;
-extern Lisp_Object Vtext_property_default_nonsticky;
+extern Lisp_Object impl_Vinhibit_point_motion_hooks;
+extern Lisp_Object impl_Vdefault_text_properties;
+extern Lisp_Object impl_Vchar_property_alias_alist;
+extern Lisp_Object impl_Vtext_property_default_nonsticky;
/* Sticky properties */
extern Lisp_Object Qfront_sticky, Qrear_nonsticky;
int raw_keybuf_count;
/* Non-nil if the present key sequence was obtained by shift translation. */
-Lisp_Object Vthis_command_keys_shift_translated;
+Lisp_Object impl_Vthis_command_keys_shift_translated;
#define GROW_RAW_KEYBUF \
if (raw_keybuf_count == XVECTOR (raw_keybuf)->size) \
/* If non-nil, the function that implements the display of help.
It's called with one argument, the help string to display. */
-Lisp_Object Vshow_help_function;
+Lisp_Object impl_Vshow_help_function;
/* Nonzero means do menu prompting. */
/* Character to see next line of menu prompt. */
-static Lisp_Object menu_prompt_more_char;
+static Lisp_Object impl_menu_prompt_more_char;
/* For longjmp to where kbd input is being done. */
int immediate_quit;
/* The user's hook function for outputting an error message. */
-Lisp_Object Vcommand_error_function;
+Lisp_Object impl_Vcommand_error_function;
/* The user's ERASE setting. */
-Lisp_Object Vtty_erase_char;
+Lisp_Object impl_Vtty_erase_char;
/* Character to recognize as the help char. */
-Lisp_Object Vhelp_char;
+Lisp_Object impl_Vhelp_char;
/* List of other event types to recognize as meaning "help". */
-Lisp_Object Vhelp_event_list;
+Lisp_Object impl_Vhelp_event_list;
/* Form to execute when help char is typed. */
-Lisp_Object Vhelp_form;
+Lisp_Object impl_Vhelp_form;
/* Command to run when the help character follows a prefix key. */
-Lisp_Object Vprefix_help_command;
+Lisp_Object impl_Vprefix_help_command;
/* List of items that should move to the end of the menu bar. */
-Lisp_Object Vmenu_bar_final_items;
+Lisp_Object impl_Vmenu_bar_final_items;
/* Non-nil means show the equivalent key-binding for
any M-x command that has one.
The value can be a length of time to show the message for.
If the value is non-nil and not a number, we wait 2 seconds. */
-Lisp_Object Vsuggest_key_bindings;
+Lisp_Object impl_Vsuggest_key_bindings;
/* How long to display an echo-area message when the minibuffer is active.
If the value is not a number, such messages don't time out. */
-Lisp_Object Vminibuffer_message_timeout;
+Lisp_Object impl_Vminibuffer_message_timeout;
/* Character that causes a quit. Normally C-g.
extern int minibuf_level;
/* If non-nil, this is a map that overrides all other local maps. */
-Lisp_Object Voverriding_local_map;
+Lisp_Object impl_Voverriding_local_map;
/* If non-nil, Voverriding_local_map applies to the menu bar. */
-Lisp_Object Voverriding_local_map_menu_flag;
+Lisp_Object impl_Voverriding_local_map_menu_flag;
/* Keymap that defines special misc events that should
be processed immediately at a low level. */
-Lisp_Object Vspecial_event_map;
+Lisp_Object impl_Vspecial_event_map;
/* Current depth in recursive edits. */
int command_loop_level;
EMACS_INT num_input_keys;
/* Last input event read as a command. */
-Lisp_Object last_command_event;
+Lisp_Object impl_last_command_event;
/* Last input character read as a command, not counting menus
reached by the mouse. */
-Lisp_Object last_nonmenu_event;
+Lisp_Object impl_last_nonmenu_event;
/* Last input event read for any purpose. */
-Lisp_Object last_input_event;
+Lisp_Object impl_last_input_event;
/* If not Qnil, a list of objects to be read as subsequent command input. */
-Lisp_Object Vunread_command_events;
+Lisp_Object impl_Vunread_command_events;
/* If not Qnil, a list of objects to be read as subsequent command input
including input method processing. */
-Lisp_Object Vunread_input_method_events;
+Lisp_Object impl_Vunread_input_method_events;
/* If not Qnil, a list of objects to be read as subsequent command input
but NOT including input method processing. */
-Lisp_Object Vunread_post_input_method_events;
+Lisp_Object impl_Vunread_post_input_method_events;
/* If not -1, an event to be read as subsequent command input. */
EMACS_INT unread_command_char;
/* Char to use as prefix when a meta character is typed in.
This is bound on entry to minibuffer in case ESC is changed there. */
-Lisp_Object meta_prefix_char;
+Lisp_Object impl_meta_prefix_char;
/* Last size recorded for a current buffer which is not a minibuffer. */
static int last_non_minibuf_size;
/* Number of idle seconds before an auto-save and garbage collection. */
-static Lisp_Object Vauto_save_timeout;
+static Lisp_Object impl_Vauto_save_timeout;
/* Total number of times read_char has returned. */
int num_input_events;
/* The command being executed by the command loop.
Commands may set this, and the value set will be copied into
current_kboard->Vlast_command instead of the actual command. */
-Lisp_Object Vthis_command;
+Lisp_Object impl_Vthis_command;
/* This is like Vthis_command, except that commands never set it. */
Lisp_Object real_this_command;
/* If the lookup of the command returns a binding, the original
command is stored in this-original-command. It is nil otherwise. */
-Lisp_Object Vthis_original_command;
+Lisp_Object impl_Vthis_original_command;
/* The value of point when the last command was started. */
int last_point_position;
/* A user-visible version of the above, intended to allow users to
figure out where the last event came from, if the event doesn't
carry that information itself (i.e. if it was a character). */
-Lisp_Object Vlast_event_frame;
+Lisp_Object impl_Vlast_event_frame;
/* The timestamp of the last input event we received from the X server.
X Windows wants this for selection ownership. */
Lisp_Object read_key_sequence_cmd;
/* Echo unfinished commands after this many seconds of pause. */
-Lisp_Object Vecho_keystrokes;
+Lisp_Object impl_Vecho_keystrokes;
/* Form to evaluate (if non-nil) when Emacs is started. */
-Lisp_Object Vtop_level;
+Lisp_Object impl_Vtop_level;
/* If non-nil, this implements the current input method. */
-Lisp_Object Vinput_method_function;
+Lisp_Object impl_Vinput_method_function;
Lisp_Object Qinput_method_function;
/* When we call Vinput_method_function,
this holds the echo area message that was just erased. */
-Lisp_Object Vinput_method_previous_message;
+Lisp_Object impl_Vinput_method_previous_message;
/* Non-nil means deactivate the mark at end of this command. */
-Lisp_Object Vdeactivate_mark;
+Lisp_Object impl_Vdeactivate_mark;
Lisp_Object Qdeactivate_mark;
/* Menu bar specified in Lucid Emacs fashion. */
-Lisp_Object Vlucid_menu_bar_dirty_flag;
+Lisp_Object impl_Vlucid_menu_bar_dirty_flag;
Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook;
Lisp_Object Qecho_area_clear_hook;
/* Hooks to run before and after each command. */
-Lisp_Object Qpre_command_hook, Vpre_command_hook;
-Lisp_Object Qpost_command_hook, Vpost_command_hook;
-Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal;
+Lisp_Object Qpre_command_hook, impl_Vpre_command_hook;
+Lisp_Object Qpost_command_hook, impl_Vpost_command_hook;
+Lisp_Object Qcommand_hook_internal, impl_Vcommand_hook_internal;
/* Parent keymap of terminal-local function-key-map instances. */
-Lisp_Object Vfunction_key_map;
+Lisp_Object impl_Vfunction_key_map;
/* Keymap of key translations that can override keymaps. */
-Lisp_Object Vkey_translation_map;
+Lisp_Object impl_Vkey_translation_map;
/* List of deferred actions to be performed at a later time.
The precise format isn't relevant here; we just check whether it is nil. */
-Lisp_Object Vdeferred_action_list;
+Lisp_Object impl_Vdeferred_action_list;
/* Function to call to handle deferred actions, when there are any. */
-Lisp_Object Vdeferred_action_function;
+Lisp_Object impl_Vdeferred_action_function;
Lisp_Object Qdeferred_action_function;
Lisp_Object Qinput_method_exit_on_first_char;
/* If this flag is non-nil, we check mouse_moved to see when the
mouse moves, and motion events will appear in the input stream.
Otherwise, mouse motion is ignored. */
-Lisp_Object do_mouse_tracking;
+Lisp_Object impl_do_mouse_tracking;
/* Symbols to head events. */
Lisp_Object Qmouse_movement;
Lisp_Object Qextended_command_history;
EMACS_TIME timer_check ();
-extern Lisp_Object Vhistory_length, Vtranslation_table_for_input;
+extern Lisp_Object impl_Vhistory_length, impl_Vtranslation_table_for_input;
extern char *x_get_keysym_name ();
Lisp_Object Qpolling_period;
/* List of absolute timers. Appears in order of next scheduled event. */
-Lisp_Object Vtimer_list;
+Lisp_Object impl_Vtimer_list;
/* List of idle time timers. Appears in order of next scheduled event. */
-Lisp_Object Vtimer_idle_list;
+Lisp_Object impl_Vtimer_idle_list;
/* Incremented whenever a timer is run. */
int timers_run;
-extern Lisp_Object Vprint_level, Vprint_length;
+extern Lisp_Object impl_Vprint_level, impl_Vprint_length;
/* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt
happens. */
variable to non-nil, we suppress this point adjustment. This
variable is set to nil before reading a command. */
-Lisp_Object Vdisable_point_adjustment;
+Lisp_Object impl_Vdisable_point_adjustment;
/* If non-nil, always disable point adjustment. */
-Lisp_Object Vglobal_disable_point_adjustment;
+Lisp_Object impl_Vglobal_disable_point_adjustment;
/* The time when Emacs started being idle. */
/* If non-nil, events produced by disabled menu items and tool-bar
buttons are not ignored. Help functions bind this to allow help on
those items and buttons. */
-Lisp_Object Venable_disabled_menus_and_buttons;
+Lisp_Object impl_Venable_disabled_menus_and_buttons;
\f
/* Global variable declarations. */
}
-Lisp_Object Vthrow_on_input;
+Lisp_Object impl_Vthrow_on_input;
/* Store an event obtained at interrupt level into kbd_buffer, fifo */
/* The maximum time between clicks to make a double-click, or Qnil to
disable double-click detection, or Qt for no time limit. */
-Lisp_Object Vdouble_click_time;
+Lisp_Object impl_Vdouble_click_time;
/* Maximum number of pixels the mouse may be moved between clicks
to make a double-click. */
\f
/* Menu items. */
-extern Lisp_Object Vlucid_menu_bar_dirty_flag;
+extern Lisp_Object impl_Vlucid_menu_bar_dirty_flag;
extern Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook;
/* This holds a Lisp vector that holds the properties of a single
/* Parent keymap of terminal-local function-key-map instances. */
-extern Lisp_Object Vfunction_key_map;
+extern Lisp_Object impl_Vfunction_key_map;
/* Keymap of key translations that can override keymaps. */
-extern Lisp_Object Vkey_translation_map;
+extern Lisp_Object impl_Vkey_translation_map;
extern int parse_menu_item (Lisp_Object, int);
C-x-prefixed default commands */
/* was MinibufLocalMap */
-Lisp_Object Vminibuffer_local_map;
+Lisp_Object impl_Vminibuffer_local_map;
/* The keymap used by the minibuf for local
bindings when spaces are allowed in the
minibuf */
/* was MinibufLocalNSMap */
-Lisp_Object Vminibuffer_local_ns_map;
+Lisp_Object impl_Vminibuffer_local_ns_map;
/* The keymap used by the minibuf for local
bindings when spaces are not encouraged
in the minibuf */
/* keymap used for minibuffers when doing completion */
/* was MinibufLocalCompletionMap */
-Lisp_Object Vminibuffer_local_completion_map;
+Lisp_Object impl_Vminibuffer_local_completion_map;
/* keymap used for minibuffers when doing completion in filenames */
-Lisp_Object Vminibuffer_local_filename_completion_map;
+Lisp_Object impl_Vminibuffer_local_filename_completion_map;
/* keymap used for minibuffers when doing completion in filenames
with require-match*/
-Lisp_Object Vminibuffer_local_filename_must_match_map;
+Lisp_Object impl_Vminibuffer_local_filename_must_match_map;
/* keymap used for minibuffers when doing completion and require a match */
/* was MinibufLocalMustMatchMap */
-Lisp_Object Vminibuffer_local_must_match_map;
+Lisp_Object impl_Vminibuffer_local_must_match_map;
/* Alist of minor mode variables and keymaps. */
-Lisp_Object Vminor_mode_map_alist;
+Lisp_Object impl_Vminor_mode_map_alist;
/* Alist of major-mode-specific overrides for
minor mode variables and keymaps. */
-Lisp_Object Vminor_mode_overriding_map_alist;
+Lisp_Object impl_Vminor_mode_overriding_map_alist;
/* List of emulation mode keymap alists. */
-Lisp_Object Vemulation_mode_map_alists;
+Lisp_Object impl_Vemulation_mode_map_alists;
/* A list of all commands given new bindings since a certain time
when nil was stored here.
This is used to speed up recomputation of menu key equivalents
when Emacs starts up. t means don't record anything here. */
-Lisp_Object Vdefine_key_rebound_commands;
+Lisp_Object impl_Vdefine_key_rebound_commands;
Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii, Qmenu_item, Qremap;
Lisp_Object QCadvertised_binding;
/* A char with the CHAR_META bit set in a vector or the 0200 bit set
in a string key sequence is equivalent to prefixing with this
character. */
-extern Lisp_Object meta_prefix_char;
+extern Lisp_Object impl_meta_prefix_char;
-extern Lisp_Object Voverriding_local_map;
+extern Lisp_Object impl_Voverriding_local_map;
/* Hash table used to cache a reverse-map to speed up calls to where-is. */
static Lisp_Object where_is_cache;
return data.sequences;
}
-static Lisp_Object Vwhere_is_preferred_modifier;
+static Lisp_Object impl_Vwhere_is_preferred_modifier;
/* This function can GC if Flookup_key autoloads any keymaps. */
extern Lisp_Object larger_vector P_ ((Lisp_Object, int, Lisp_Object));
extern void sweep_weak_hash_tables P_ ((void));
extern Lisp_Object Qstring_lessp;
-extern Lisp_Object Vfeatures;
+extern Lisp_Object impl_Vfeatures;
extern Lisp_Object QCtest, QCweakness, Qequal, Qeq;
unsigned sxhash P_ ((Lisp_Object, int));
Lisp_Object make_hash_table P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
extern Lisp_Object Qinhibit_eval_during_redisplay;
extern Lisp_Object Qmessage_truncate_lines;
extern Lisp_Object Qimage;
-extern Lisp_Object Vmessage_log_max;
+extern Lisp_Object impl_Vmessage_log_max;
extern int message_enable_multibyte;
extern Lisp_Object echo_area_buffer[2];
extern void check_message_stack P_ ((void));
extern void buffer_memory_full P_ ((void)) NO_RETURN;
extern int survives_gc_p P_ ((Lisp_Object));
extern void mark_object P_ ((Lisp_Object));
-extern Lisp_Object Vpurify_flag;
-extern Lisp_Object Vmemory_full;
+extern Lisp_Object impl_Vpurify_flag;
+extern Lisp_Object impl_Vmemory_full;
EXFUN (Fcons, 2);
EXFUN (list1, 1);
EXFUN (list2, 2);
EXFUN (Fterpri, 1);
EXFUN (Fprint, 2);
EXFUN (Ferror_message_string, 1);
-extern Lisp_Object Vstandard_output, Qstandard_output;
+extern Lisp_Object impl_Vstandard_output, Qstandard_output;
extern Lisp_Object Qexternal_debugging_output;
extern void temp_output_buffer_setup P_ ((const char *));
extern int print_level, print_escape_newlines;
/* Defined in lread.c */
extern Lisp_Object Qvariable_documentation, Qstandard_input;
-extern Lisp_Object Vobarray, initial_obarray, Vstandard_input;
+extern Lisp_Object impl_Vobarray, initial_obarray, impl_Vstandard_input;
EXFUN (Fread, 1);
EXFUN (Fread_from_string, 3);
EXFUN (Fintern, 2);
extern Lisp_Object oblookup P_ ((Lisp_Object, const char *, int, int));
#define LOADHIST_ATTACH(x) \
if (initialized) Vcurrent_load_list = Fcons (x, Vcurrent_load_list)
-extern Lisp_Object Vcurrent_load_list;
-extern Lisp_Object Vload_history, Vload_suffixes, Vload_file_rep_suffixes;
+extern Lisp_Object impl_Vcurrent_load_list;
+extern Lisp_Object impl_Vload_history, impl_Vload_suffixes, impl_Vload_file_rep_suffixes;
extern int openp P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
Lisp_Object *, Lisp_Object));
extern int isfloat_string P_ ((char *, int));
/* Defined in eval.c */
extern Lisp_Object Qautoload, Qexit, Qinteractive, Qcommandp, Qdefun, Qmacro;
-extern Lisp_Object Vinhibit_quit, Qinhibit_quit, Vquit_flag;
+extern Lisp_Object impl_Vinhibit_quit, Qinhibit_quit, impl_Vquit_flag;
extern Lisp_Object Vautoload_queue;
-extern Lisp_Object Vdebug_on_error;
+extern Lisp_Object impl_Vdebug_on_error;
extern Lisp_Object Vsignaling_function;
extern int handling_signal;
extern int interactive_p P_ ((int));
extern Lisp_Object make_buffer_string_both P_ ((int, int, int, int, int));
extern void init_editfns P_ ((void));
extern void syms_of_editfns P_ ((void));
-extern Lisp_Object Vinhibit_field_text_motion;
+extern Lisp_Object impl_Vinhibit_field_text_motion;
EXFUN (Fconstrain_to_field, 5);
EXFUN (Ffield_string, 1);
EXFUN (Fdelete_field, 1);
extern void report_overlay_modification P_ ((Lisp_Object, Lisp_Object, int,
Lisp_Object, Lisp_Object, Lisp_Object));
extern int overlay_touches_p P_ ((int));
-extern Lisp_Object Vbuffer_alist, Vinhibit_read_only;
+extern Lisp_Object Vbuffer_alist, impl_Vinhibit_read_only;
EXFUN (Fbuffer_list, 1);
EXFUN (Fget_buffer, 1);
EXFUN (Fget_buffer_create, 1);
/* Defined in callint.c */
-extern Lisp_Object Qminus, Qplus, Vcurrent_prefix_arg;
-extern Lisp_Object Vcommand_history;
+extern Lisp_Object Qminus, Qplus, impl_Vcurrent_prefix_arg;
+extern Lisp_Object impl_Vcommand_history;
extern Lisp_Object Qcall_interactively, Qmouse_leave_buffer_hook;
EXFUN (Fcall_interactively, 3);
EXFUN (Fprefix_numeric_value, 1);
extern struct kboard *echo_kboard;
extern void cancel_echoing P_ ((void));
extern Lisp_Object Qdisabled, QCfilter;
-extern Lisp_Object Vtty_erase_char, Vhelp_form, Vtop_level;
-extern Lisp_Object Vthrow_on_input;
+extern Lisp_Object impl_Vtty_erase_char, impl_Vhelp_form, impl_Vtop_level;
+extern Lisp_Object impl_Vthrow_on_input;
extern int input_pending;
EXFUN (Fdiscard_input, 0);
EXFUN (Frecursive_edit, 0);
/* defined in frame.c */
#ifdef HAVE_WINDOW_SYSTEM
-extern Lisp_Object Vx_resource_name;
-extern Lisp_Object Vx_resource_class;
+extern Lisp_Object impl_Vx_resource_name;
+extern Lisp_Object impl_Vx_resource_class;
#endif /* HAVE_WINDOW_SYSTEM */
extern Lisp_Object Qvisible;
extern void store_frame_param P_ ((struct frame *, Lisp_Object, Lisp_Object));
/* defined in emacs.c */
extern Lisp_Object decode_env_path P_ ((char *, char *));
-extern Lisp_Object Vinvocation_name, Vinvocation_directory;
-extern Lisp_Object Vbefore_init_time, Vafter_init_time;
-extern Lisp_Object Vinstallation_directory;
+extern Lisp_Object impl_Vinvocation_name, impl_Vinvocation_directory;
+extern Lisp_Object impl_Vbefore_init_time, impl_Vafter_init_time;
+extern Lisp_Object impl_Vinstallation_directory;
extern Lisp_Object empty_unibyte_string, empty_multibyte_string;
EXFUN (Fkill_emacs, 1);
#if HAVE_SETLOCALE
extern void setup_process_coding_systems P_ ((Lisp_Object));
/* defined in callproc.c */
-extern Lisp_Object Vexec_path, Vexec_suffixes,
- Vexec_directory, Vdata_directory;
-extern Lisp_Object Vdoc_directory;
+extern Lisp_Object impl_Vexec_path, impl_Vexec_suffixes,
+ impl_Vexec_directory, impl_Vdata_directory;
+extern Lisp_Object impl_Vdoc_directory;
EXFUN (Fcall_process, MANY);
extern int child_setup P_ ((int, int, int, char **, int, Lisp_Object));
extern void init_callproc_1 P_ ((void));
extern void syms_of_callproc P_ ((void));
/* defined in doc.c */
-extern Lisp_Object Vdoc_file_name;
+extern Lisp_Object impl_Vdoc_file_name;
EXFUN (Fsubstitute_command_keys, 1);
EXFUN (Fdocumentation, 2);
EXFUN (Fdocumentation_property, 3);
extern void record_property_change P_ ((int, int, Lisp_Object, Lisp_Object,
Lisp_Object));
extern void syms_of_undo P_ ((void));
-extern Lisp_Object Vundo_outer_limit;
+extern Lisp_Object impl_Vundo_outer_limit;
/* defined in textprop.c */
extern Lisp_Object Qfont, Qmouse_face;
to '/', and don't test for a device separator in IS_ANY_SEP. */
#ifdef WINDOWSNT
-extern Lisp_Object Vdirectory_sep_char;
+extern Lisp_Object impl_Vdirectory_sep_char;
#endif
#ifndef DIRECTORY_SEP
extern Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweakness;
Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list;
-Lisp_Object Qvariable_documentation, Vvalues, Vstandard_input, Vafter_load_alist;
+Lisp_Object Qvariable_documentation, impl_Vvalues, impl_Vstandard_input, impl_Vafter_load_alist;
Lisp_Object Qascii_character, Qload, Qload_file_name;
Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot, Qfunction;
Lisp_Object Qinhibit_file_name_operation;
-Lisp_Object Qeval_buffer_list, Veval_buffer_list;
+Lisp_Object Qeval_buffer_list, impl_Veval_buffer_list;
Lisp_Object Qfile_truename, Qdo_after_load_evaluation; /* ACM 2006/5/16 */
/* Used instead of Qget_file_char while loading *.elc files compiled
static Lisp_Object Qload_in_progress;
/* Directory in which the sources were found. */
-Lisp_Object Vsource_directory;
+Lisp_Object impl_Vsource_directory;
/* Search path and suffixes for files to be loaded. */
-Lisp_Object Vload_path, Vload_suffixes, Vload_file_rep_suffixes;
+Lisp_Object impl_Vload_path, impl_Vload_suffixes, impl_Vload_file_rep_suffixes;
/* File name of user's init file. */
-Lisp_Object Vuser_init_file;
+Lisp_Object impl_Vuser_init_file;
/* This is the user-visible association list that maps features to
lists of defs in their load files. */
-Lisp_Object Vload_history;
+Lisp_Object impl_Vload_history;
/* This is used to build the load history. */
-Lisp_Object Vcurrent_load_list;
+Lisp_Object impl_Vcurrent_load_list;
/* List of files that were preloaded. */
-Lisp_Object Vpreloaded_file_list;
+Lisp_Object impl_Vpreloaded_file_list;
/* Name of file actually being read by `load'. */
-Lisp_Object Vload_file_name;
+Lisp_Object impl_Vload_file_name;
/* Function to use for reading, in `load' and friends. */
-Lisp_Object Vload_read_function;
+Lisp_Object impl_Vload_read_function;
/* Non-nil means read recursive structures using #n= and #n# syntax. */
-Lisp_Object Vread_circle;
+Lisp_Object impl_Vread_circle;
/* The association list of objects read with the #n=object form.
Each member of the list has the form (n . object), and is used to
/* Function to use for loading an Emacs Lisp source file (not
compiled) instead of readevalloop. */
-Lisp_Object Vload_source_file_function;
+Lisp_Object impl_Vload_source_file_function;
/* List of all DEFVAR_BOOL variables. Used by the byte optimizer. */
-Lisp_Object Vbyte_boolean_vars;
+Lisp_Object impl_Vbyte_boolean_vars;
/* Whether or not to add a `read-positions' property to symbols
read. */
-Lisp_Object Vread_with_symbol_positions;
+Lisp_Object impl_Vread_with_symbol_positions;
/* List of (SYMBOL . POSITION) accumulated so far. */
-Lisp_Object Vread_symbol_positions_list;
+Lisp_Object impl_Vread_symbol_positions_list;
/* List of descriptors now open for Fload. */
static Lisp_Object load_descriptor_list;
Fread initializes this to zero, so we need not specbind it
or worry about what happens to it when there is an error. */
static int new_backquote_flag;
-static Lisp_Object Vold_style_backquotes, Qold_style_backquotes;
+static Lisp_Object impl_Vold_style_backquotes, Qold_style_backquotes;
/* A list of file names for files being loaded in Fload. Used to
check for recursive loads. */
/* A regular expression used to detect files compiled with Emacs. */
-static Lisp_Object Vbytecomp_version_regexp;
+static Lisp_Object impl_Vbytecomp_version_regexp;
static int read_emacs_mule_char P_ ((int, int (*) (int, Lisp_Object),
Lisp_Object));
}
}
\f
-Lisp_Object Vobarray;
+Lisp_Object impl_Vobarray;
Lisp_Object initial_obarray;
/* oblookup stores the bucket number here, for the sake of Funintern. */
/* Kbd macro currently being executed (a string or vector). */
-Lisp_Object Vexecuting_kbd_macro;
+Lisp_Object impl_Vexecuting_kbd_macro;
/* Index of next character to fetch from that macro. */
/* Kbd macro currently being executed (a string or vector). */
-extern Lisp_Object Vexecuting_kbd_macro;
+extern Lisp_Object impl_Vexecuting_kbd_macro;
/* Index of next character to fetch from that macro. */
/* The maximum length of a minibuffer history. */
-Lisp_Object Qhistory_length, Vhistory_length;
+Lisp_Object Qhistory_length, impl_Vhistory_length;
/* No duplicates in history. */
/* Non-nil means add new input to history. */
-Lisp_Object Vhistory_add_new_input;
+Lisp_Object impl_Vhistory_add_new_input;
/* Fread_minibuffer leaves the input here as a string. */
/* help-form is bound to this while in the minibuffer. */
-Lisp_Object Vminibuffer_help_form;
+Lisp_Object impl_Vminibuffer_help_form;
/* Variable which is the history list to add minibuffer values to. */
-Lisp_Object Vminibuffer_history_variable;
+Lisp_Object impl_Vminibuffer_history_variable;
/* Current position in the history list (adjusted by M-n and M-p). */
-Lisp_Object Vminibuffer_history_position;
+Lisp_Object impl_Vminibuffer_history_position;
/* Text properties that are added to minibuffer prompts.
These are in addition to the basic `field' property, and stickiness
properties. */
-Lisp_Object Vminibuffer_prompt_properties;
+Lisp_Object impl_Vminibuffer_prompt_properties;
Lisp_Object Qminibuffer_history, Qbuffer_name_history;
/* Normal hooks for entry to and exit from minibuffer. */
-Lisp_Object Qminibuffer_setup_hook, Vminibuffer_setup_hook;
-Lisp_Object Qminibuffer_exit_hook, Vminibuffer_exit_hook;
+Lisp_Object Qminibuffer_setup_hook, impl_Vminibuffer_setup_hook;
+Lisp_Object Qminibuffer_exit_hook, impl_Vminibuffer_exit_hook;
/* Function to call to read a buffer name. */
-Lisp_Object Vread_buffer_function;
+Lisp_Object impl_Vread_buffer_function;
/* Nonzero means completion ignores case. */
/* List of regexps that should restrict possible completions. */
-Lisp_Object Vcompletion_regexp_list;
+Lisp_Object impl_Vcompletion_regexp_list;
/* Nonzero means raise the minibuffer frame when the minibuffer
is entered. */
int minibuffer_auto_raise;
/* Keymap for reading expressions. */
-Lisp_Object Vread_expression_map;
+Lisp_Object impl_Vread_expression_map;
-Lisp_Object Vminibuffer_completion_table, Qminibuffer_completion_table;
-Lisp_Object Vminibuffer_completion_predicate, Qminibuffer_completion_predicate;
-Lisp_Object Vminibuffer_completion_confirm, Qminibuffer_completion_confirm;
-Lisp_Object Vminibuffer_completing_file_name;
+Lisp_Object impl_Vminibuffer_completion_table, Qminibuffer_completion_table;
+Lisp_Object impl_Vminibuffer_completion_predicate, Qminibuffer_completion_predicate;
+Lisp_Object impl_Vminibuffer_completion_confirm, Qminibuffer_completion_confirm;
+Lisp_Object impl_Vminibuffer_completing_file_name;
Lisp_Object Quser_variable_p;
Lisp_Object Qread_expression_history;
-extern Lisp_Object Voverriding_local_map;
+extern Lisp_Object impl_Voverriding_local_map;
extern Lisp_Object Qmouse_face;
accomodate the screen attribute byte. */
#define MAX_SCREEN_BUF 160*2
-Lisp_Object Vdos_unsupported_char_glyph;
+Lisp_Object impl_Vdos_unsupported_char_glyph;
extern unsigned char *encode_terminal_code (struct glyph *, int,
struct coding_system *);
static void
#include "termhooks.h" /* For struct terminal. */
#include "font.h"
-Lisp_Object Vstandard_output, Qstandard_output;
+Lisp_Object impl_Vstandard_output, Qstandard_output;
Lisp_Object Qtemp_buffer_setup_hook;
/* These are used to print like we read. */
extern Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot, Qfunction;
-Lisp_Object Vfloat_output_format, Qfloat_output_format;
+Lisp_Object impl_Vfloat_output_format, Qfloat_output_format;
#include <math.h>
/* Maximum length of list to print in full; noninteger means
effectively infinity */
-Lisp_Object Vprint_length;
+Lisp_Object impl_Vprint_length;
/* Maximum depth of list to print in full; noninteger means
effectively infinity. */
-Lisp_Object Vprint_level;
+Lisp_Object impl_Vprint_level;
/* Nonzero means print newlines in strings as \n. */
/* Non-nil means print #: before uninterned symbols. */
-Lisp_Object Vprint_gensym;
+Lisp_Object impl_Vprint_gensym;
/* Non-nil means print recursive structures using #n= and #n# syntax. */
-Lisp_Object Vprint_circle;
+Lisp_Object impl_Vprint_circle;
/* Non-nil means keep continuous number for #n= and #n# syntax
between several print functions. */
-Lisp_Object Vprint_continuous_numbering;
+Lisp_Object impl_Vprint_continuous_numbering;
/* Vprint_number_table is a vector like [OBJ1 STAT1 OBJ2 STAT2 ...],
where OBJn are objects going to be printed, and STATn are their status,
print_number_index keeps the last position the next object should be added,
twice of which is the actual vector position in Vprint_number_table. */
int print_number_index;
-Lisp_Object Vprint_number_table;
+Lisp_Object impl_Vprint_number_table;
/* PRINT_NUMBER_OBJECT returns the I'th object in Vprint_number_table TABLE.
PRINT_NUMBER_STATUS returns the status of the I'th object in TABLE.
/* A flag to control printing of `charset' text property.
The default value is Qdefault. */
-Lisp_Object Vprint_charset_text_property;
+Lisp_Object impl_Vprint_charset_text_property;
extern Lisp_Object Qdefault;
static void print_check_string_charset_prop ();
/* t means use pty, nil means use a pipe,
maybe other values to come. */
-static Lisp_Object Vprocess_connection_type;
+static Lisp_Object impl_Vprocess_connection_type;
/* These next two vars are non-static since sysdep.c uses them in the
emulation of `select'. */
A value of t means that delay is reset after each send, any other
non-nil value does not reset the delay. A value of nil disables
adaptive read buffering completely. */
-static Lisp_Object Vprocess_adaptive_read_buffering;
+static Lisp_Object impl_Vprocess_adaptive_read_buffering;
#else
#define process_output_delay_count 0
#endif
--- /dev/null
+;; Rewrite DEFVAR_LISP variables.
+;; Each variable is renamed to start with impl_.
+;; Compatibility defines are added to globals.h.
+;; Invoke as: emacs --script rewrite-globals.el
+
+(defvar defvar-list '())
+
+(defun extract-defvars ()
+ (let ((case-fold-search nil))
+ (while (re-search-forward "^[^#*]*\\(DEFVAR_[A-Z_]*\\)" nil 'move)
+ (let ((kind (match-string 1)))
+ (unless (member kind '("DEFVAR_KBOARD" "DEFVAR_PER_BUFFER"))
+ ;; Skip the paren and the first argument.
+ (skip-chars-forward " (")
+ (forward-sexp)
+ (skip-chars-forward ", \t\n&")
+ (if (looking-at "\\_<\\(\\sw\\|\\s_\\)+\\_>")
+ (let ((var-name (match-string 0)))
+ (if (equal kind "DEFVAR_LISP")
+ (push var-name defvar-list)))))))))
+
+(defun munge-V ()
+ (interactive)
+ (while (re-search-forward "^\\(extern \\|static \\)?Lisp_Object " nil 'move)
+ ;; skip function decls.
+ (if (not (looking-at ".*("))
+ (while (looking-at "[a-z0-9A-Z_]+")
+ (if (member (match-string 0) defvar-list)
+ (progn
+ ;; Rename them all to impl_
+ (goto-char (match-beginning 0))
+ (insert "impl_")))
+ (forward-sexp)
+ (skip-chars-forward ", \t\n")))))
+
+(defconst V-dir ".")
+
+(defun munge-V-directory ()
+ ;; First extract all defvars.
+ (dolist (file (directory-files V-dir t "[ch]$"))
+ (save-excursion
+ (message "Scanning %s" file)
+ (find-file file)
+ (extract-defvars)))
+
+ (setq defvar-list (delete-dups (sort defvar-list #'string<)))
+
+ (dolist (file (directory-files V-dir t "[ch]$"))
+ (save-excursion
+ (message "Processing %s" file)
+ (find-file file)
+ (goto-char (point-min))
+ (munge-V)
+ (save-buffer)))
+
+ (find-file "globals.h")
+ (erase-buffer)
+ (dolist (v defvar-list)
+ (insert "#define " v " *find_variable_location (&impl_" v ")\n"))
+
+ ;; A few special cases for globals.h.
+ (insert "\n")
+ (dolist (v '("do_mouse_tracking" "Vmark_even_if_inactive" "Vprint_level"))
+ (insert "extern Lisp_Object impl_" v ";\n"))
+ (save-buffer))
+
+(munge-V-directory)
/* Error condition used for failing searches */
Lisp_Object Qsearch_failed;
-Lisp_Object Vsearch_spaces_regexp;
+Lisp_Object impl_Vsearch_spaces_regexp;
/* If non-nil, the match data will not be changed during call to
searching or matching functions. This variable is for internal use
only. */
-Lisp_Object Vinhibit_changing_match_data;
+Lisp_Object impl_Vinhibit_changing_match_data;
static void set_search_regs P_ ((EMACS_INT, EMACS_INT));
static void save_search_regs P_ ((void));
/* Char-table of functions that find the next or previous word
boundary. */
-Lisp_Object Vfind_word_boundary_function_table;
+Lisp_Object impl_Vfind_word_boundary_function_table;
/* Return the position across COUNT words from FROM.
If that many words cannot be found before the end of the buffer, return 0.
/* init_system_name sets up the string for the Lisp function
system-name to return. */
-extern Lisp_Object Vsystem_name;
+extern Lisp_Object impl_Vsystem_name;
#ifdef HAVE_SOCKETS
#include <sys/socket.h>
extern Lisp_Object Qspace, QCalign_to, QCwidth;
/* Functions to call after suspending a tty. */
-Lisp_Object Vsuspend_tty_functions;
+Lisp_Object impl_Vsuspend_tty_functions;
/* Functions to call after resuming a tty. */
-Lisp_Object Vresume_tty_functions;
+Lisp_Object impl_Vresume_tty_functions;
/* Chain of all tty device parameters. */
struct tty_display_info *tty_list;
struct terminal *initial_terminal;
/* Function to use to ring the bell. */
-Lisp_Object Vring_bell_function;
+Lisp_Object impl_Vring_bell_function;
static void delete_initial_terminal P_ ((struct terminal *));
Lisp_Object Qrun_hook_with_args;
static Lisp_Object Qdelete_terminal_functions;
-static Lisp_Object Vdelete_terminal_functions;
+static Lisp_Object impl_Vdelete_terminal_functions;
DEFUN ("delete-terminal", Fdelete_terminal, Sdelete_terminal, 0, 2, 0,
doc: /* Delete TERMINAL by deleting all frames on it and closing the terminal.
extern int meta_key;
/* Defined in xdisp.c */
-extern Lisp_Object Vtruncate_partial_width_windows;
+extern Lisp_Object impl_Vtruncate_partial_width_windows;
/* Nonzero means no need to redraw the entire frame on resuming a suspended
Emacs. This is useful on terminals with multiple pages, where one page is
traversing plists. */
#define PLIST_ELT_P(o1, o2) (CONSP (o1) && ((o2)=XCDR (o1), CONSP (o2)))
-Lisp_Object Vinhibit_point_motion_hooks;
-Lisp_Object Vdefault_text_properties;
-Lisp_Object Vchar_property_alias_alist;
-Lisp_Object Vtext_property_default_nonsticky;
+Lisp_Object impl_Vinhibit_point_motion_hooks;
+Lisp_Object impl_Vdefault_text_properties;
+Lisp_Object impl_Vchar_property_alias_alist;
+Lisp_Object impl_Vtext_property_default_nonsticky;
/* verify_interval_modification saves insertion hooks here
to be run later by report_interval_modification. */
EMACS_INT undo_limit;
EMACS_INT undo_strong_limit;
-Lisp_Object Vundo_outer_limit;
+Lisp_Object impl_Vundo_outer_limit;
/* Function to call when undo_outer_limit is exceeded. */
-Lisp_Object Vundo_outer_limit_function;
+Lisp_Object impl_Vundo_outer_limit_function;
/* Last buffer for which undo information was recorded. */
/* BEWARE: This is not traced by the GC, so never dereference it! */
/* Coding system for communicating with other Windows programs via the
clipboard. */
-static Lisp_Object Vselection_coding_system;
+static Lisp_Object impl_Vselection_coding_system;
/* Coding system for the next communicating with other Windows programs. */
-static Lisp_Object Vnext_selection_coding_system;
+static Lisp_Object impl_Vnext_selection_coding_system;
/* The segment address and the size of the buffer in low
memory used to move data between us and WinOldAp module. */
void globals_of_w32 ();
static DWORD get_rid (PSID);
-extern Lisp_Object Vw32_downcase_file_names;
-extern Lisp_Object Vw32_generate_fake_inodes;
-extern Lisp_Object Vw32_get_true_file_attributes;
+extern Lisp_Object impl_Vw32_downcase_file_names;
+extern Lisp_Object impl_Vw32_generate_fake_inodes;
+extern Lisp_Object impl_Vw32_get_true_file_attributes;
/* Defined in process.c for its own purpose. */
extern Lisp_Object Qlocal;
}
char *get_emacs_configuration (void);
-extern Lisp_Object Vsystem_configuration;
+extern Lisp_Object impl_Vsystem_configuration;
void
init_environment (char ** argv)
static CONSOLE_CURSOR_INFO prev_console_cursor;
#endif
-extern Lisp_Object Vtty_defined_color_alist;
+extern Lisp_Object impl_Vtty_defined_color_alist;
/* Determine whether to make frame dimensions match the screen buffer,
or the current window size. The former is desirable when running
extern char *lispy_function_keys[];
/* The colormap for converting color names to RGB values */
-Lisp_Object Vw32_color_map;
+Lisp_Object impl_Vw32_color_map;
/* Non nil if alt key presses are passed on to Windows. */
-Lisp_Object Vw32_pass_alt_to_system;
+Lisp_Object impl_Vw32_pass_alt_to_system;
/* Non nil if alt key is translated to meta_modifier, nil if it is translated
to alt_modifier. */
-Lisp_Object Vw32_alt_is_meta;
+Lisp_Object impl_Vw32_alt_is_meta;
/* If non-zero, the windows virtual key code for an alternative quit key. */
int w32_quit_key;
/* Non nil if left window key events are passed on to Windows (this only
affects whether "tapping" the key opens the Start menu). */
-Lisp_Object Vw32_pass_lwindow_to_system;
+Lisp_Object impl_Vw32_pass_lwindow_to_system;
/* Non nil if right window key events are passed on to Windows (this
only affects whether "tapping" the key opens the Start menu). */
-Lisp_Object Vw32_pass_rwindow_to_system;
+Lisp_Object impl_Vw32_pass_rwindow_to_system;
/* Virtual key code used to generate "phantom" key presses in order
to stop system from acting on Windows key events. */
-Lisp_Object Vw32_phantom_key_code;
+Lisp_Object impl_Vw32_phantom_key_code;
/* Modifier associated with the left "Windows" key, or nil to act as a
normal key. */
-Lisp_Object Vw32_lwindow_modifier;
+Lisp_Object impl_Vw32_lwindow_modifier;
/* Modifier associated with the right "Windows" key, or nil to act as a
normal key. */
-Lisp_Object Vw32_rwindow_modifier;
+Lisp_Object impl_Vw32_rwindow_modifier;
/* Modifier associated with the "Apps" key, or nil to act as a normal
key. */
-Lisp_Object Vw32_apps_modifier;
+Lisp_Object impl_Vw32_apps_modifier;
/* Value is nil if Num Lock acts as a function key. */
-Lisp_Object Vw32_enable_num_lock;
+Lisp_Object impl_Vw32_enable_num_lock;
/* Value is nil if Caps Lock acts as a function key. */
-Lisp_Object Vw32_enable_caps_lock;
+Lisp_Object impl_Vw32_enable_caps_lock;
/* Modifier associated with Scroll Lock, or nil to act as a normal key. */
-Lisp_Object Vw32_scroll_lock_modifier;
+Lisp_Object impl_Vw32_scroll_lock_modifier;
/* Switch to control whether we inhibit requests for synthesized bold
and italic versions of fonts. */
int w32_enable_synthesized_fonts;
/* Enable palette management. */
-Lisp_Object Vw32_enable_palette;
+Lisp_Object impl_Vw32_enable_palette;
/* Control how close left/right button down events must be to
be converted to a middle button down event. */
static int w32_pass_multimedia_buttons_to_system;
/* Non nil if no window manager is in use. */
-Lisp_Object Vx_no_window_manager;
+Lisp_Object impl_Vx_no_window_manager;
/* If non-zero, a w32 timer that, when it expires, displays an
hourglass cursor on all frames. */
#if 0 /* TODO: Mouse cursor customization. */
/* The background and shape of the mouse pointer, and shape when not
over text or in the modeline. */
-Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape;
-Lisp_Object Vx_hourglass_pointer_shape, Vx_window_horizontal_drag_shape;
+Lisp_Object impl_Vx_pointer_shape, impl_Vx_nontext_pointer_shape, impl_Vx_mode_pointer_shape;
+Lisp_Object impl_Vx_hourglass_pointer_shape, impl_Vx_window_horizontal_drag_shape;
/* The shape when over mouse-sensitive text. */
-Lisp_Object Vx_sensitive_text_pointer_shape;
+Lisp_Object impl_Vx_sensitive_text_pointer_shape;
#endif
#ifndef IDC_HAND
#endif
/* Color of chars displayed in cursor box. */
-Lisp_Object Vx_cursor_fore_pixel;
+Lisp_Object impl_Vx_cursor_fore_pixel;
/* Nonzero if using Windows. */
/* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
-Lisp_Object Vx_pixel_size_width_font_regexp;
+Lisp_Object impl_Vx_pixel_size_width_font_regexp;
/* Alist of bdf fonts and the files that define them. */
-Lisp_Object Vw32_bdf_filename_alist;
+Lisp_Object impl_Vw32_bdf_filename_alist;
/* A flag to control whether fonts are matched strictly or not. */
static int w32_strict_fontnames;
/* The below are defined in frame.c. */
-extern Lisp_Object Vwindow_system_version;
+extern Lisp_Object impl_Vwindow_system_version;
#ifdef GLYPH_DEBUG
int image_cache_refcount, dpyinfo_refcount;
/* From w32term.c. */
extern int w32_num_mouse_buttons;
-extern Lisp_Object Vw32_recognize_altgr;
+extern Lisp_Object impl_Vw32_recognize_altgr;
extern HWND w32_system_caret_hwnd;
cursor. Duplicated from xdisp.c, but cannot use the version there
due to lack of atimers on w32. */
#define DEFAULT_HOURGLASS_DELAY 1
-extern Lisp_Object Vhourglass_delay;
+extern Lisp_Object impl_Vhourglass_delay;
/* Return non-zero if houglass timer has been started or hourglass is shown. */
/* PENDING: if W32 can use atimers (atimer.[hc]) then the common impl in
/* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
-Lisp_Object Vx_max_tooltip_size;
+Lisp_Object impl_Vx_max_tooltip_size;
static Lisp_Object
static Lisp_Object Qw32_charset_thai, Qw32_charset_johab, Qw32_charset_mac;
/* Associative list linking character set strings to Windows codepages. */
-static Lisp_Object Vw32_charset_info_alist;
+static Lisp_Object impl_Vw32_charset_info_alist;
/* Font spacing symbols - defined in font.c. */
extern Lisp_Object Qc, Qp, Qm;
extern int w32_use_full_screen_buffer;
/* from w32fns.c */
-extern Lisp_Object Vw32_alt_is_meta;
+extern Lisp_Object impl_Vw32_alt_is_meta;
extern unsigned int map_keypad_keys (unsigned int, unsigned int);
/* from w32term */
-extern Lisp_Object Vw32_capslock_is_shiftlock;
-extern Lisp_Object Vw32_enable_caps_lock;
-extern Lisp_Object Vw32_enable_num_lock;
-extern Lisp_Object Vw32_recognize_altgr;
-extern Lisp_Object Vw32_pass_lwindow_to_system;
-extern Lisp_Object Vw32_pass_rwindow_to_system;
-extern Lisp_Object Vw32_phantom_key_code;
-extern Lisp_Object Vw32_lwindow_modifier;
-extern Lisp_Object Vw32_rwindow_modifier;
-extern Lisp_Object Vw32_apps_modifier;
-extern Lisp_Object Vw32_scroll_lock_modifier;
+extern Lisp_Object impl_Vw32_capslock_is_shiftlock;
+extern Lisp_Object impl_Vw32_enable_caps_lock;
+extern Lisp_Object impl_Vw32_enable_num_lock;
+extern Lisp_Object impl_Vw32_recognize_altgr;
+extern Lisp_Object impl_Vw32_pass_lwindow_to_system;
+extern Lisp_Object impl_Vw32_pass_rwindow_to_system;
+extern Lisp_Object impl_Vw32_phantom_key_code;
+extern Lisp_Object impl_Vw32_lwindow_modifier;
+extern Lisp_Object impl_Vw32_rwindow_modifier;
+extern Lisp_Object impl_Vw32_apps_modifier;
+extern Lisp_Object impl_Vw32_scroll_lock_modifier;
extern unsigned int w32_key_to_modifier (int key);
/* Event queue */
extern Lisp_Object QCtoggle, QCradio;
-extern Lisp_Object Voverriding_local_map;
-extern Lisp_Object Voverriding_local_map_menu_flag;
+extern Lisp_Object impl_Voverriding_local_map;
+extern Lisp_Object impl_Voverriding_local_map_menu_flag;
extern Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map;
correct parsing by child process. Because not all uses of spawnve
are careful about constructing argv arrays, we make this behavior
conditional (off by default). */
-Lisp_Object Vw32_quote_process_args;
+Lisp_Object impl_Vw32_quote_process_args;
/* Control whether create_child causes the process' window to be
hidden. The default is nil. */
-Lisp_Object Vw32_start_process_show_window;
+Lisp_Object impl_Vw32_start_process_show_window;
/* Control whether create_child causes the process to inherit Emacs'
console window, or be given a new one of its own. The default is
nil, to allow multiple DOS programs to run on Win95. Having separate
consoles also allows Emacs to cleanly terminate process groups. */
-Lisp_Object Vw32_start_process_share_console;
+Lisp_Object impl_Vw32_start_process_share_console;
/* Control whether create_child cause the process to inherit Emacs'
error mode setting. The default is t, to minimize the possibility of
subprocesses blocking when accessing unmounted drives. */
-Lisp_Object Vw32_start_process_inherit_error_mode;
+Lisp_Object impl_Vw32_start_process_inherit_error_mode;
/* Time to sleep before reading from a subprocess output pipe - this
avoids the inefficiency of frequently reading small amounts of data.
/* Control conversion of upper case file names to lower case.
nil means no, t means yes. */
-Lisp_Object Vw32_downcase_file_names;
+Lisp_Object impl_Vw32_downcase_file_names;
/* Control whether stat() attempts to generate fake but hopefully
"accurate" inode values, by hashing the absolute truenames of files.
This should detect aliasing between long and short names, but still
allows the possibility of hash collisions. */
-Lisp_Object Vw32_generate_fake_inodes;
+Lisp_Object impl_Vw32_generate_fake_inodes;
/* Control whether stat() attempts to determine file type and link count
exactly, at the expense of slower operation. Since true hard links
are supported on NTFS volumes, this is only relevant on NT. */
-Lisp_Object Vw32_get_true_file_attributes;
+Lisp_Object impl_Vw32_get_true_file_attributes;
extern Lisp_Object Qlocal;
Lisp_Object Qhigh, Qlow;
extern BOOL term_winsock (void);
extern BOOL init_winsock (int load_now);
-extern Lisp_Object Vsystem_name;
+extern Lisp_Object impl_Vsystem_name;
DEFUN ("w32-has-winsock", Fw32_has_winsock, Sw32_has_winsock, 0, 1, 0,
doc: /* Test for presence of the Windows socket library `winsock'.
/* Coding system for communicating with other programs via the
clipboard. */
-static Lisp_Object Vselection_coding_system;
+static Lisp_Object impl_Vselection_coding_system;
/* Coding system for the next communication with other programs. */
-static Lisp_Object Vnext_selection_coding_system;
+static Lisp_Object impl_Vnext_selection_coding_system;
/* Internal pseudo-constants, initialized in globals_of_w32select()
based on current system parameters. */
/* Non-nil means Emacs uses toolkit scroll bars. */
-Lisp_Object Vx_toolkit_scroll_bars;
+Lisp_Object impl_Vx_toolkit_scroll_bars;
/* Temporary variables for w32_read_socket. */
int w32_num_mouse_buttons;
-Lisp_Object Vw32_swap_mouse_buttons;
+Lisp_Object impl_Vw32_swap_mouse_buttons;
/* Control whether x_raise_frame also sets input focus. */
-Lisp_Object Vw32_grab_focus_on_raise;
+Lisp_Object impl_Vw32_grab_focus_on_raise;
/* Control whether Caps Lock affects non-ascii characters. */
-Lisp_Object Vw32_capslock_is_shiftlock;
+Lisp_Object impl_Vw32_capslock_is_shiftlock;
/* Control whether right-alt and left-ctrl should be recognized as AltGr. */
-Lisp_Object Vw32_recognize_altgr;
+Lisp_Object impl_Vw32_recognize_altgr;
/* The scroll bar in which the last motion event occurred.
static int input_signal_count;
#endif
-extern Lisp_Object Vcommand_line_args, Vsystem_name;
+extern Lisp_Object impl_Vcommand_line_args, impl_Vsystem_name;
#ifndef USE_CRT_DLL
extern int errno;
system palette. Keep a ref-counted list of requested colors and
regenerate the app palette whenever the requested list changes. */
-extern Lisp_Object Vw32_enable_palette;
+extern Lisp_Object impl_Vw32_enable_palette;
struct w32_palette_entry {
struct w32_palette_entry * next;
extern Lisp_Object w32_display_name_list;
/* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
-extern Lisp_Object Vx_pixel_size_width_font_regexp;
+extern Lisp_Object impl_Vx_pixel_size_width_font_regexp;
struct w32_display_info *x_display_info_for_name ();
/* Non-nil means it is the window for C-M-v to scroll
when the mini-buffer is selected. */
-Lisp_Object Vminibuf_scroll_window;
+Lisp_Object impl_Vminibuf_scroll_window;
/* Non-nil means this is the buffer whose window C-M-v should scroll. */
-Lisp_Object Vother_window_scroll_buffer;
+Lisp_Object impl_Vother_window_scroll_buffer;
/* Non-nil means it's function to call to display temp buffers. */
-Lisp_Object Vtemp_buffer_show_function;
+Lisp_Object impl_Vtemp_buffer_show_function;
/* Non-zero means line and page scrolling on tall lines (with images)
does partial scrolling by modifying window-vscroll. */
/* Hook to run when window config changes. */
static Lisp_Object Qwindow_configuration_change_hook;
-static Lisp_Object Vwindow_configuration_change_hook;
+static Lisp_Object impl_Vwindow_configuration_change_hook;
/* Non-nil means scroll commands try to put point
at the same screen height as previously. */
-Lisp_Object Vscroll_preserve_screen_position;
+Lisp_Object impl_Vscroll_preserve_screen_position;
/* Non-nil means that text is inserted before window's markers. */
-Lisp_Object Vwindow_point_insertion_type;
+Lisp_Object impl_Vwindow_point_insertion_type;
/* Incremented by 1 whenever a window is deleted. */
extern EMACS_INT scroll_margin;
-extern Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions;
+extern Lisp_Object Qwindow_scroll_functions, impl_Vwindow_scroll_functions;
/* If non-nil, then the `recenter' command with a nil argument
the entire frame to be redrawn; the special value `tty' causes the
frame to be redrawn only if it is a tty frame. */
-static Lisp_Object Vrecenter_redisplay;
+static Lisp_Object impl_Vrecenter_redisplay;
extern Lisp_Object Qtty;
\f
/* Non-nil => window to for C-M-v to scroll when the minibuffer is
selected. */
-extern Lisp_Object Vminibuf_scroll_window;
+extern Lisp_Object impl_Vminibuf_scroll_window;
/* Nil or a symbol naming the window system under which emacs is
running ('x is the only current possibility) */
-extern Lisp_Object Vinitial_window_system;
+extern Lisp_Object impl_Vinitial_window_system;
/* Version number of X windows: 10, 11 or nil. */
-extern Lisp_Object Vwindow_system_version;
+extern Lisp_Object impl_Vwindow_system_version;
/* Window that the mouse is over (nil if no mouse support). */
extern int interrupt_input;
extern int command_loop_level;
-extern Lisp_Object do_mouse_tracking;
+extern Lisp_Object impl_do_mouse_tracking;
extern int minibuffer_auto_raise;
extern Lisp_Object Vminibuffer_list;
extern Lisp_Object Qface;
extern Lisp_Object Qmode_line, Qmode_line_inactive, Qheader_line;
-extern Lisp_Object Voverriding_local_map;
-extern Lisp_Object Voverriding_local_map_menu_flag;
+extern Lisp_Object impl_Voverriding_local_map;
+extern Lisp_Object impl_Voverriding_local_map_menu_flag;
extern Lisp_Object Qmenu_item;
extern Lisp_Object Qwhen;
extern Lisp_Object Qhelp_echo;
extern Lisp_Object Qbefore_string, Qafter_string;
Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map;
-Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions;
-Lisp_Object Qwindow_text_change_functions, Vwindow_text_change_functions;
-Lisp_Object Qredisplay_end_trigger_functions, Vredisplay_end_trigger_functions;
+Lisp_Object Qwindow_scroll_functions, impl_Vwindow_scroll_functions;
+Lisp_Object Qwindow_text_change_functions, impl_Vwindow_text_change_functions;
+Lisp_Object Qredisplay_end_trigger_functions, impl_Vredisplay_end_trigger_functions;
Lisp_Object Qinhibit_point_motion_hooks;
Lisp_Object QCeval, QCfile, QCdata, QCpropertize;
Lisp_Object Qfontified;
/* Functions called to fontify regions of text. */
-Lisp_Object Vfontification_functions;
+Lisp_Object impl_Vfontification_functions;
Lisp_Object Qfontification_functions;
/* Non-nil means automatically select any window when the mouse
cursor moves into it. */
-Lisp_Object Vmouse_autoselect_window;
+Lisp_Object impl_Vmouse_autoselect_window;
-Lisp_Object Vwrap_prefix, Qwrap_prefix;
-Lisp_Object Vline_prefix, Qline_prefix;
+Lisp_Object impl_Vwrap_prefix, Qwrap_prefix;
+Lisp_Object impl_Vline_prefix, Qline_prefix;
/* Non-zero means draw tool bar buttons raised when the mouse moves
over them. */
If value is `internal-border-width' or `border-width',
the corresponding frame parameter is used. */
-Lisp_Object Vtool_bar_border;
+Lisp_Object impl_Vtool_bar_border;
/* Margin around tool bar buttons in pixels. */
-Lisp_Object Vtool_bar_button_margin;
+Lisp_Object impl_Vtool_bar_button_margin;
/* Thickness of shadow to draw around tool bar buttons. */
If value is `grow-only', only make tool-bar bigger. */
-Lisp_Object Vauto_resize_tool_bars;
+Lisp_Object impl_Vauto_resize_tool_bars;
/* Non-zero means draw block and hollow cursor as wide as the glyph
under it. For example, if a block cursor is over a tab, it will be
/* Non-nil means don't actually do any redisplay. */
-Lisp_Object Vinhibit_redisplay, Qinhibit_redisplay;
+Lisp_Object impl_Vinhibit_redisplay, Qinhibit_redisplay;
/* Non-zero means Lisp evaluation during redisplay is inhibited. */
/* Symbols used in text property values. */
-Lisp_Object Vdisplay_pixels_per_inch;
+Lisp_Object impl_Vdisplay_pixels_per_inch;
Lisp_Object Qspace, QCalign_to, QCrelative_width, QCrelative_height;
Lisp_Object Qleft_margin, Qright_margin, Qspace_width, Qraise;
Lisp_Object Qslice;
/* Non-nil means highlight trailing whitespace. */
-Lisp_Object Vshow_trailing_whitespace;
+Lisp_Object impl_Vshow_trailing_whitespace;
/* Non-nil means escape non-break space and hyphens. */
-Lisp_Object Vnobreak_char_display;
+Lisp_Object impl_Vnobreak_char_display;
#ifdef HAVE_WINDOW_SYSTEM
-extern Lisp_Object Voverflow_newline_into_fringe;
+extern Lisp_Object impl_Voverflow_newline_into_fringe;
/* Test if overflow newline into fringe. Called with iterator IT
at or past right window margin, and with IT->current_x set. */
i.e. in blank areas after eol and eob. This used to be
the default in 21.3. */
-Lisp_Object Vvoid_text_area_pointer;
+Lisp_Object impl_Vvoid_text_area_pointer;
/* Name of the face used to highlight trailing whitespace. */
/* Nonzero means truncate lines in all windows less wide than the
frame. */
-Lisp_Object Vtruncate_partial_width_windows;
+Lisp_Object impl_Vtruncate_partial_width_windows;
/* A flag to control how to display unibyte 8-bit character. */
int multiple_frames;
-Lisp_Object Vglobal_mode_string;
+Lisp_Object impl_Vglobal_mode_string;
/* List of variables (symbols) which hold markers for overlay arrows.
The symbols on this list are examined during redisplay to determine
where to display overlay arrows. */
-Lisp_Object Voverlay_arrow_variable_list;
+Lisp_Object impl_Voverlay_arrow_variable_list;
/* Marker for where to display an arrow on top of the buffer text. */
-Lisp_Object Voverlay_arrow_position;
+Lisp_Object impl_Voverlay_arrow_position;
/* String to display for the arrow. Only used on terminal frames. */
-Lisp_Object Voverlay_arrow_string;
+Lisp_Object impl_Voverlay_arrow_string;
/* Values of those variables at last redisplay are stored as
properties on `overlay-arrow-position' symbol. However, if
/* Like mode-line-format, but for the title bar on a visible frame. */
-Lisp_Object Vframe_title_format;
+Lisp_Object impl_Vframe_title_format;
/* Like mode-line-format, but for the title bar on an iconified frame. */
-Lisp_Object Vicon_title_format;
+Lisp_Object impl_Vicon_title_format;
/* List of functions to call when a window's size changes. These
functions get one arg, a frame on which one or more windows' sizes
have changed. */
-static Lisp_Object Vwindow_size_change_functions;
+static Lisp_Object impl_Vwindow_size_change_functions;
-Lisp_Object Qmenu_bar_update_hook, Vmenu_bar_update_hook;
+Lisp_Object Qmenu_bar_update_hook, impl_Vmenu_bar_update_hook;
/* Nonzero if an overlay arrow has been displayed in this window. */
/* Maximum buffer size for which to display line numbers. */
-Lisp_Object Vline_number_display_limit;
+Lisp_Object impl_Vline_number_display_limit;
/* Line width to consider when repositioning for line number display. */
/* Number of lines to keep in the message log buffer. t means
infinite. nil means don't log at all. */
-Lisp_Object Vmessage_log_max;
+Lisp_Object impl_Vmessage_log_max;
/* The name of the *Messages* buffer, a string. */
/* When evaluating expressions from menu bar items (enable conditions,
for instance), this is the frame they are being processed for. */
-Lisp_Object Vmenu_updating_frame;
+Lisp_Object impl_Vmenu_updating_frame;
/* Maximum height for resizing mini-windows. Either a float
specifying a fraction of the available height, or an integer
specifying a number of lines. */
-Lisp_Object Vmax_mini_window_height;
+Lisp_Object impl_Vmax_mini_window_height;
/* Non-zero means messages should be displayed with truncated
lines instead of being continued. */
static int message_cleared_p;
/* How to blink the default frame cursor off. */
-Lisp_Object Vblink_cursor_alist;
+Lisp_Object impl_Vblink_cursor_alist;
/* A scratch glyph row with contents used for generating truncation
glyphs. Also used in direct_output_for_insert. */
EMACS_INT hscroll_margin;
/* How much to scroll horizontally when point is inside the above margin. */
-Lisp_Object Vhscroll_step;
+Lisp_Object impl_Vhscroll_step;
/* The variable `resize-mini-windows'. If nil, don't resize
mini-windows. If t, always resize them to fit the text they
display. If `grow-only', let mini-windows grow only until they
become empty. */
-Lisp_Object Vresize_mini_windows;
+Lisp_Object impl_Vresize_mini_windows;
/* Buffer being redisplayed -- for redisplay_window_error. */
struct atimer *hourglass_atimer;
/* Number of seconds to wait before displaying an hourglass cursor. */
-Lisp_Object Vhourglass_delay;
+Lisp_Object impl_Vhourglass_delay;
/* Default number of seconds to wait before displaying an hourglass
cursor. */
for a face background color. See `set-face-stipple' for possible
values for this variable. */
-Lisp_Object Vface_default_stipple;
+Lisp_Object impl_Vface_default_stipple;
/* Alist of alternative font families. Each element is of the form
(FAMILY FAMILY1 FAMILY2 ...). If fonts of FAMILY can't be loaded,
font may be scaled if its name matches a regular expression in the
list. */
-Lisp_Object Vscalable_fonts_allowed, Qscalable_fonts_allowed;
+Lisp_Object impl_Vscalable_fonts_allowed, Qscalable_fonts_allowed;
/* List of regular expressions that matches names of fonts to ignore. */
-Lisp_Object Vface_ignored_fonts;
+Lisp_Object impl_Vface_ignored_fonts;
/* Alist of font name patterns vs the rescaling factor. */
-Lisp_Object Vface_font_rescale_alist;
+Lisp_Object impl_Vface_font_rescale_alist;
/* Maximum number of fonts to consider in font_list. If not an
integer > 0, DEFAULT_FONT_LIST_LIMIT is used instead. */
-Lisp_Object Vfont_list_limit;
+Lisp_Object impl_Vfont_list_limit;
#define DEFAULT_FONT_LIST_LIMIT 100
/* The symbols `foreground-color' and `background-color' which can be
is a Lisp vector of face attributes. These faces are used
to initialize faces for new frames. */
-Lisp_Object Vface_new_frame_defaults;
+Lisp_Object impl_Vface_new_frame_defaults;
/* Alist of face remappings. Each element is of the form:
(FACE REPLACEMENT...) which causes display of the face FACE to use
Face-name remapping cycles are suppressed; recursive references use
the underlying face instead of the remapped face. */
-Lisp_Object Vface_remapping_alist;
+Lisp_Object impl_Vface_remapping_alist;
/* The next ID to assign to Lisp faces. */
/* An alist of defined terminal colors and their RGB values. */
-Lisp_Object Vtty_defined_color_alist;
+Lisp_Object impl_Vtty_defined_color_alist;
/* Counter for calls to clear_face_cache. If this counter reaches
CLEAR_FONT_TABLE_COUNT, and a frame has more than
/* LessTif/Motif version info. */
-static Lisp_Object Vmotif_version_string;
+static Lisp_Object impl_Vmotif_version_string;
#endif /* USE_MOTIF */
/* GTK+ version info */
-static Lisp_Object Vgtk_version_string;
+static Lisp_Object impl_Vgtk_version_string;
#endif /* USE_GTK */
/* The background and shape of the mouse pointer, and shape when not
over text or in the modeline. */
-Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape;
-Lisp_Object Vx_hourglass_pointer_shape;
+Lisp_Object impl_Vx_pointer_shape, impl_Vx_nontext_pointer_shape, impl_Vx_mode_pointer_shape;
+Lisp_Object impl_Vx_hourglass_pointer_shape;
/* The shape when over mouse-sensitive text. */
-Lisp_Object Vx_sensitive_text_pointer_shape;
+Lisp_Object impl_Vx_sensitive_text_pointer_shape;
/* If non-nil, the pointer shape to indicate that windows can be
dragged horizontally. */
-Lisp_Object Vx_window_horizontal_drag_shape;
+Lisp_Object impl_Vx_window_horizontal_drag_shape;
/* Color of chars displayed in cursor box. */
-Lisp_Object Vx_cursor_fore_pixel;
+Lisp_Object impl_Vx_cursor_fore_pixel;
/* Nonzero if using X. */
/* Non nil if no window manager is in use. */
-Lisp_Object Vx_no_window_manager;
+Lisp_Object impl_Vx_no_window_manager;
/* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
-Lisp_Object Vx_pixel_size_width_font_regexp;
+Lisp_Object impl_Vx_pixel_size_width_font_regexp;
Lisp_Object Qnone;
Lisp_Object Qsuppress_icon;
/* In dispnew.c */
-extern Lisp_Object Vwindow_system_version;
+extern Lisp_Object impl_Vwindow_system_version;
/* The below are defined in frame.c. */
/* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
-Lisp_Object Vx_max_tooltip_size;
+Lisp_Object impl_Vx_max_tooltip_size;
static Lisp_Object
return scripts;
}
-extern Lisp_Object Vscalable_fonts_allowed;
+extern Lisp_Object impl_Vscalable_fonts_allowed;
static Lisp_Object
xfont_list_pattern (Display *display, char *pattern,
extern Lisp_Object QCtoggle, QCradio;
-extern Lisp_Object Voverriding_local_map;
-extern Lisp_Object Voverriding_local_map_menu_flag;
+extern Lisp_Object impl_Voverriding_local_map;
+extern Lisp_Object impl_Voverriding_local_map_menu_flag;
extern Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map;
QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7;
#endif
-static Lisp_Object Vx_lost_selection_functions;
-static Lisp_Object Vx_sent_selection_functions;
+static Lisp_Object impl_Vx_lost_selection_functions;
+static Lisp_Object impl_Vx_sent_selection_functions;
static Lisp_Object Qforeign_selection;
/* If this is a smaller number than the max-request-size of the display,
call to convert the given Emacs selection value to a string representing
the given selection type. This is for Lisp-level extension of the emacs
selection handling. */
-static Lisp_Object Vselection_converter_alist;
+static Lisp_Object impl_Vselection_converter_alist;
/* If the selection owner takes too long to reply to a selection request,
we give up on it. This is in milliseconds (0 = no timeout.) */
/* The user login name. */
-extern Lisp_Object Vuser_login_name;
+extern Lisp_Object impl_Vuser_login_name;
/* This is the event used when SAVE_SESSION_EVENT occurs. */
/* The client session id for this session as a lisp object. */
-Lisp_Object Vx_session_id;
+Lisp_Object impl_Vx_session_id;
/* The id we had the previous session. This is only available if we
have been started by the session manager with SMID_OPT. */
-Lisp_Object Vx_session_previous_id;
+Lisp_Object impl_Vx_session_previous_id;
/* The option we tell the session manager to start Emacs with when
restarting Emacs. The client_id is appended. */
/* Non-nil means Emacs uses toolkit scroll bars. */
-Lisp_Object Vx_toolkit_scroll_bars;
+Lisp_Object impl_Vx_toolkit_scroll_bars;
/* Non-zero means that a HELP_EVENT has been generated since Emacs
start. */
extern char **initial_argv;
extern int initial_argc;
-extern Lisp_Object Vcommand_line_args, Vsystem_name;
+extern Lisp_Object impl_Vcommand_line_args, impl_Vsystem_name;
/* Tells if a window manager is present or not. */
-extern Lisp_Object Vx_no_window_manager;
+extern Lisp_Object impl_Vx_no_window_manager;
extern Lisp_Object Qeql;
/* The keysyms to use for the various modifiers. */
-Lisp_Object Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym, Vx_super_keysym;
-Lisp_Object Vx_keysym_table;
+Lisp_Object impl_Vx_alt_keysym, impl_Vx_hyper_keysym, impl_Vx_meta_keysym, impl_Vx_super_keysym;
+Lisp_Object impl_Vx_keysym_table;
static Lisp_Object Qalt, Qhyper, Qmeta, Qsuper, Qmodifier_value;
static Lisp_Object Qvendor_specific_keysyms;
/* Used in x_flush. */
-extern Lisp_Object Vinhibit_redisplay;
+extern Lisp_Object impl_Vinhibit_redisplay;
extern XrmDatabase x_load_resources P_ ((Display *, char *, char *, char *));
extern int x_bitmap_mask P_ ((FRAME_PTR, int));
extern Lisp_Object x_display_name_list;
/* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
-extern Lisp_Object Vx_pixel_size_width_font_regexp;
+extern Lisp_Object impl_Vx_pixel_size_width_font_regexp;
extern struct x_display_info *x_display_info_for_display P_ ((Display *));
extern struct x_display_info *x_display_info_for_name P_ ((Lisp_Object));
projects / emacs.git / commitdiff