From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 16 Jun 1994 15:03:04 +0000 (+0000)
Subject: (scan_lists): Get error if eob within comment with depth!=0.
X-Git-Tag: emacs-19.34~7929
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c01f7ec05de7ca645f6f5c6e84fe700eccf48f5c;p=emacs.git

(scan_lists): Get error if eob within comment with depth!=0.
---

diff --git a/src/syntax.c b/src/syntax.c
index 0db563c18eb..d1dd2931236 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -933,7 +933,12 @@ scan_lists (from, count, depth, sexpflag)
 	      if (!parse_sexp_ignore_comments) break;
 	      while (1)
 		{
-		  if (from == stop) goto done;
+		  if (from == stop)
+		    {
+		      if (depth == 0)
+			goto done;
+		      goto lose;
+		    }
 		  c = FETCH_CHAR (from);
 		  if (SYNTAX (c) == Sendcomment
 		      && SYNTAX_COMMENT_STYLE (c) == comstyle)
@@ -1099,7 +1104,12 @@ scan_lists (from, count, depth, sexpflag)
 		      if (SYNTAX (c = FETCH_CHAR (from)) == Scomment
 			  && SYNTAX_COMMENT_STYLE (c) == comstyle)
 			break;
-		      if (from == stop) goto done;
+		      if (from == stop)
+			{
+			  if (depth == 0)
+			    goto done2;
+			  goto lose;
+			}
 		      from--;
 		      if (SYNTAX_COMSTART_SECOND (c)
 			  && SYNTAX_COMSTART_FIRST (FETCH_CHAR (from))