Commit 5aa273b0 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(syms_of_lread): Export old-style-backquotes to Elisp.

parent 008e2c2a
2007-08-22 Stefan Monnier <monnier@iro.umontreal.ca>
 
* lread.c (Vold_style_backquotes): New var.
(syms_of_lread): Init and staticpro it.
(syms_of_lread): Init and export it to Elisp.
(read1): Set it when we find an old-style (back)quote.
 
2007-08-22 Jason Rumney <jasonr@gnu.org>
......
......@@ -4195,6 +4195,10 @@ to load. See also `load-dangerous-libraries'. */);
doc: /* List of buffers being read from by calls to `eval-buffer' and `eval-region'. */);
Veval_buffer_list = Qnil;
DEFVAR_LISP ("old-style-backquotes", &Vold_style_backquotes,
doc: /* Set to non-nil when `read' encounters an old-style backquote. */);
Vold_style_backquotes = Qnil;
/* Vsource_directory was initialized in init_lread. */
load_descriptor_list = Qnil;
......@@ -4254,9 +4258,6 @@ 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