[Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE]

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Stefan Monnier <monnier>        07/08/22 15:43:46

Index: lread.c
===================================================================
RCS file: /sources/emacs/emacs/src/lread.c,v
retrieving revision 1.369.2.2
retrieving revision 1.369.2.3
diff -u -b -r1.369.2.2 -r1.369.2.3
--- lread.c     8 Aug 2007 07:49:16 -0000       1.369.2.2
+++ lread.c     22 Aug 2007 15:43:46 -0000      1.369.2.3
@@ -193,6 +193,7 @@
    Fread initializes this to zero, so we need not specbind it
    or worry about what happens to it when there is an error.  */
 static int new_backquote_flag;
+static Lisp_Object Vold_style_backquotes;
 
 /* A list of file names for files being loaded in Fload.  Used to
    check for recursive loads.  */
@@ -2442,7 +2443,10 @@
 
     case '`':
       if (first_in_list)
+       {
+         Vold_style_backquotes = Qt;
        goto default_label;
+       }
       else
        {
          Lisp_Object value;
@@ -2477,7 +2481,10 @@
          return Fcons (comma_type, Fcons (value, Qnil));
        }
       else
+       {
+         Vold_style_backquotes = Qt;
        goto default_label;
+       }
 
     case '?':
       {
@@ -4247,6 +4254,9 @@
 
   Vloads_in_progress = Qnil;
   staticpro (&Vloads_in_progress);
+
+  Vold_style_backquotes = Qnil;
+  staticpro (&Vold_style_backquotes);
 }
 
 /* arch-tag: a0d02733-0f96-4844-a659-9fd53c4f414d