mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 00:01:33 -08:00
Code Issues Projects Releases Wiki Activity

(Vbyte_boolean_vars): New variable.

Browse source 
(defvar_bool, syms_of_lread): Use it.
This commit is contained in:
Dave Love 1999-09-06 11:02:28 +00:00
parent 751d474c0a
commit 1ffcc3b149
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lread.c
View file

@ -127,6 +127,9 @@ static int load_convert_to_unibyte;
compiled) instead of readevalloop. */
Lisp_Object Vload_source_file_function;
/* List of all DEFVAR_BOOL variables. Used by the byte optimizer. */
Lisp_Object Vbyte_boolean_vars;
/* List of descriptors now open for Fload. */
static Lisp_Object load_descriptor_list;
@ -3038,6 +3041,7 @@ defvar_bool (namestring, address)
XMISCTYPE (val) = Lisp_Misc_Boolfwd;
XBOOLFWD (val)->boolvar = address;
XSYMBOL (sym)->value = val;
Vbyte_boolean_vars = Fcons (sym, Vbyte_boolean_vars);
}
/* Similar but define a variable whose value is the Lisp Object stored
@ -3421,6 +3425,10 @@ You cannot count on them to still be there!");
"List of files that were preloaded (when dumping Emacs).");
Vpreloaded_file_list = Qnil;
DEFVAR_LISP ("byte-boolean-vars", &Vbyte_boolean_vars,
"List of all DEFVAR_BOOL variables, used by the byte code optimizer.");
Vbyte_boolean_vars = Qnil;
/* Vsource_directory was initialized in init_lread. */
load_descriptor_list = Qnil;