Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1ffcc3b1
Commit
1ffcc3b1
authored
Sep 06, 1999
by
Dave Love
Browse files
(Vbyte_boolean_vars): New variable.
(defvar_bool, syms_of_lread): Use it.
parent
751d474c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
0 deletions
+8
-0
src/lread.c
src/lread.c
+8
-0
No files found.
src/lread.c
View file @
1ffcc3b1
...
...
@@ -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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment