# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808585404 0
# Node ID 1372454cb5e52a173ad4433c4aa63c49ca9dbab9
# Parent  2304fcfade47eba3d5d853db6a1779c486bc580f
(scan_sexps_forward): Use the initial depth
in the starting state for tracking when we reach TARGETDEPTH.

diff -r 2304fcfade47 -r 1372454cb5e5 src/syntax.c
--- a/src/syntax.c	Wed Aug 16 15:00:57 1995 +0000
+++ b/src/syntax.c	Wed Aug 16 15:03:24 1995 +0000
@@ -1534,7 +1534,7 @@
 	    error ("Nesting too deep for parser");
 	  curlevel->prev = -1;
 	  curlevel->last = -1;
-	  if (!--targetdepth) goto done;
+	  if (targetdepth != depth) goto done;
 	  break;
 
 	case Sclose:
@@ -1544,7 +1544,7 @@
 	  if (curlevel != levelstart)
 	    curlevel--;
 	  curlevel->prev = curlevel->last;
-	  if (!++targetdepth) goto done;
+	  if (targetdepth != depth) goto done;
 	  break;
 
 	case Sstring: