# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1187798110 0
# Node ID 036719d86e2c41a4b1f122f5c9858b06ad2490e1
# Parent  340dd924a5532443946040a95137fefedeb325b9
(syms_of_lread): Export old-style-backquotes to Elisp.

diff -r 340dd924a553 -r 036719d86e2c src/ChangeLog
--- a/src/ChangeLog	Wed Aug 22 15:51:13 2007 +0000
+++ b/src/ChangeLog	Wed Aug 22 15:55:10 2007 +0000
@@ -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 -r 340dd924a553 -r 036719d86e2c src/lread.c
--- a/src/lread.c	Wed Aug 22 15:51:13 2007 +0000
+++ b/src/lread.c	Wed Aug 22 15:55:10 2007 +0000
@@ -4195,6 +4195,10 @@
 	       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 @@
 
   Vloads_in_progress = Qnil;
   staticpro (&Vloads_in_progress);
-
-  Vold_style_backquotes = Qnil;
-  staticpro (&Vold_style_backquotes);
 }
 
 /* arch-tag: a0d02733-0f96-4844-a659-9fd53c4f414d