From c01f7ec05de7ca645f6f5c6e84fe700eccf48f5c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Jun 1994 15:03:04 +0000 Subject: [PATCH] (scan_lists): Get error if eob within comment with depth!=0. --- src/syntax.c | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) 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)) -- 2.39.5