# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 926675462 0
# Node ID e94104cf589108d4ceb6636498f881d183b9d9a3
# Parent  358a330c99318fe58aacc774407c60419725c484
(Fparse_partial_sexp): Correct test for element 8 to be
non-nil.

diff -r 358a330c9931 -r e94104cf5891 src/syntax.c
--- a/src/syntax.c	Fri May 14 09:46:38 1999 +0000
+++ b/src/syntax.c	Fri May 14 09:51:02 1999 +0000
@@ -2713,7 +2713,8 @@
 			       ? (state.comstyle == ST_COMMENT_STYLE
 				  ? Qsyntax_table : Qt) :
 			       Qnil),
-			      Fcons ((state.incomment || state.instring
+			      Fcons (((state.incomment
+				       || (state.instring >= 0))
 				      ? make_number (state.comstr_start)
 				      : Qnil),
 				     Fcons (state.levelstarts, Qnil))))))))));