@@ -78,10 +78,10 @@ escapeSingleQuotes =
7878escapeEllipses = gsub "\\.\\.\\.|\\. \\. \\." "\\ldots{}"
7979
8080escapeDashes = gsub "([0-9])-([0-9])" "\\1--\\2" .
81− gsub " -- " "---" .
82− gsub "([^[:punct:][:space:]])--([^[:punct:][:space:]])" "\\1---\\2"
81+ gsub " *--- *" "---" .
82+ gsub "([^-])--([^-])" "\\1---\\2"
8383
84−escapeSmart = escapeSingleQuotes . escapeDoubleQuotes . escapeDashes . escapeEllipses
84+escapeSmart = escapeDashes . escapeSingleQuotes . escapeDoubleQuotes . escapeEllipses
8585
8686-- | Escape string for LaTeX (including smart quotes, dashes, ellipses)
8787stringToLaTeX :: String -> String