Mercurial > emacs
changeset 78614:036719d86e2c
(syms_of_lread): Export old-style-backquotes to Elisp.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 22 Aug 2007 15:55:10 +0000 |
| parents | 340dd924a553 |
| children | bd2ba451e2af |
| files | src/ChangeLog src/lread.c |
| diffstat | 2 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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