(Fparse_partial_sexp): Correct test for element 8 to be

non-nil.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/syntax.c b/src/syntax.c
index af2554b3e85..da41de6d5a7 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -2713,7 +2713,8 @@ DEFUN ("parse-partial-sexp", Fparse_partial_sexp, Sparse_partial_sexp, 2, 6, 0,
                                ? (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))))))))));