diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-06-16 15:03:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-06-16 15:03:04 +0000 |
| commit | 53ebff64179d1bb922b7a3083a330a5179b89a89 (patch) | |
| tree | df7f714ab97639e231e68ec019d7d3b39c11f982 /src/syntax.c | |
| parent | 940658e1b1587e8b0f6110e138aa29399574e3e5 (diff) | |
| download | emacs-53ebff64179d1bb922b7a3083a330a5179b89a89.tar.gz | |
(scan_lists): Get error if eob within comment with depth!=0.
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 14 |
1 files 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)) |