From 1ffcc3b149afbee9cf97fd3f2bf2d34a87763101 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 6 Sep 1999 11:02:28 +0000 Subject: [PATCH] (Vbyte_boolean_vars): New variable. (defvar_bool, syms_of_lread): Use it. --- src/lread.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/lread.c b/src/lread.c index fcc3eb4146c..d4e556a0704 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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; -- 2.39.5