From 5aa273b0a6dd11613e96f3350d748751e1c43cf0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 22 Aug 2007 15:55:10 +0000 Subject: [PATCH] (syms_of_lread): Export old-style-backquotes to Elisp. --- src/ChangeLog | 2 +- src/lread.c | 7 ++++--- 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 * 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 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 -- 2.39.5