From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 6 Nov 2001 18:48:03 +0000 (+0000)
Subject: (read1): Fix behavior with nested backquoting.
X-Git-Tag: ttn-vms-21-2-B4~18777
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ffbbdeb4464b5b0d63e83fe3f8e91674248d84d;p=emacs.git

(read1): Fix behavior with nested backquoting.
---

diff --git a/src/lread.c b/src/lread.c
index 99111a06c7d..95914a413a4 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2112,9 +2112,9 @@ read1 (readcharfun, pch, first_in_list)
 	{
 	  Lisp_Object value;
 
-	  new_backquote_flag = 1;
+	  new_backquote_flag++;
 	  value = read0 (readcharfun);
-	  new_backquote_flag = 0;
+	  new_backquote_flag--;
 
 	  return Fcons (Qbackquote, Fcons (value, Qnil));
 	}
@@ -2136,9 +2136,9 @@ read1 (readcharfun, pch, first_in_list)
 	      comma_type = Qcomma;
 	    }
 
-	  new_backquote_flag = 0;
+	  new_backquote_flag--;
 	  value = read0 (readcharfun);
-	  new_backquote_flag = 1;
+	  new_backquote_flag++;
 	  return Fcons (comma_type, Fcons (value, Qnil));
 	}
       else