Commit 9ecb827b authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(Vold_style_backquotes): New var.

(syms_of_lread): Init and staticpro it.
(read1): Set it when we find an old-style (back)quote.
parent 1d7e6356
2007-08-22 Stefan Monnier <monnier@iro.umontreal.ca>
* lread.c (Vold_style_backquotes): New var.
(syms_of_lread): Init and staticpro it.
(read1): Set it when we find an old-style (back)quote.
2007-08-22 Jason Rumney <jasonr@gnu.org>
 
* w32reg.c (SYSTEM_DEFAULT_RESOURCES): Add missing NULL terminator.
......
......@@ -193,6 +193,7 @@ static file_offset prev_saved_doc_string_position;
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;
/* A list of file names for files being loaded in Fload. Used to
check for recursive loads. */
......@@ -2442,7 +2443,10 @@ read1 (readcharfun, pch, first_in_list)
case '`':
if (first_in_list)
goto default_label;
{
Vold_style_backquotes = Qt;
goto default_label;
}
else
{
Lisp_Object value;
......@@ -2477,7 +2481,10 @@ read1 (readcharfun, pch, first_in_list)
return Fcons (comma_type, Fcons (value, Qnil));
}
else
goto default_label;
{
Vold_style_backquotes = Qt;
goto default_label;
}
case '?':
{
......@@ -4247,6 +4254,9 @@ to load. See also `load-dangerous-libraries'. */);
Vloads_in_progress = Qnil;
staticpro (&Vloads_in_progress);
Vold_style_backquotes = Qnil;
staticpro (&Vold_style_backquotes);
}
/* arch-tag: a0d02733-0f96-4844-a659-9fd53c4f414d
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment