From: Stefan Monnier Date: Wed, 22 Aug 2007 15:55:10 +0000 (+0000) Subject: (syms_of_lread): Export old-style-backquotes to Elisp. X-Git-Tag: emacs-pretest-22.1.90~949 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5aa273b0a6dd11613e96f3350d748751e1c43cf0;p=emacs.git (syms_of_lread): Export old-style-backquotes to Elisp. --- 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