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

diff --git a/src/ChangeLog b/src/ChangeLog
index b696ae06b49c294f55f75d3dc5b0cbdca2db5605..292bb68474a2c7b42c9fde0c29586d1092e69fc3 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,7 +1,7 @@
 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>

diff --git a/src/lread.c b/src/lread.c
index 76676f64b2eb4cd0e465a5551b9329cbabe580cd..02abed1ca99a27ce7c427e3d09ca3dab088afc56 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -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