Mercurial > emacs

diff src/syntax.c @ 7924:63a2327f0783

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scan_lists): Get error if eob within comment with depth!=0.
author Richard M. Stallman <rms@gnu.org>
date Thu, 16 Jun 1994 15:03:04 +0000
parents cd81dba38a49
children a6372621abd9
line wrap: on
line diff
--- a/src/syntax.c	Thu Jun 16 14:15:11 1994 +0000
+++ b/src/syntax.c	Thu Jun 16 15:03:04 1994 +0000
@@ -933,7 +933,12 @@
 	      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 @@
 		      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))