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

2 files changed, 5 insertions, 4 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index b696ae06b49..292bb68474a 100644
--- 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 76676f64b2e..02abed1ca99 100644
--- 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