summaryrefslogtreecommitdiff
path: root/src/syntax.c
diff options
context:
space:
mode:
authorDave Love <fx@gnu.org>1999-05-14 09:51:02 +0000
committerDave Love <fx@gnu.org>1999-05-14 09:51:02 +0000
commit0beaf54f1d5e81b29447b2113256a8524a44f470 (patch)
treed254a338e8ac3f7c604c9e4cda6246a2957173d8 /src/syntax.c
parent9ab191054504b78970473b5765f716cdf7530162 (diff)
downloademacs-0beaf54f1d5e81b29447b2113256a8524a44f470.tar.gz
(Fparse_partial_sexp): Correct test for element 8 to be
non-nil.
Diffstat (limited to 'src/syntax.c')
-rw-r--r--src/syntax.c3
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))))))))));