summaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 534d99c95..31de9d6e5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -190,7 +190,7 @@ options =
, Option "S" ["smart"]
(NoArg
(\opt -> return opt { optSmart = True }))
- "" -- "Use smart quotes, dashes, and ellipses in HTML output"
+ "" -- "Use smart quotes, dashes, and ellipses"
, Option "m" ["asciimathml"]
(NoArg
@@ -423,6 +423,8 @@ main = do
defaultParserState { stateParseRaw = parseRaw,
stateTabStop = tabStop,
stateStandalone = standalone && (not strict),
+ stateSmart = (smart && (not strict)) ||
+ writerName' == "latex",
stateStrict = strict }
let csslink = if (css == "")
then ""
@@ -437,8 +439,6 @@ main = do
(not strict),
writerHeader = header,
writerTitlePrefix = titlePrefix,
- writerSmart = smart &&
- (not strict),
writerTabStop = tabStop,
writerNotes = [],
writerS5 = (writerName=="s5"),