diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-08-10 22:24:57 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-08-10 22:24:57 +0000 |
| commit | 2fd7da07d4f044364609f42d8b8f799340960923 (patch) | |
| tree | c0f2bf775352b956f30f0a0e346deb4f54e6fd19 | |
| parent | 79359605d154fd77578aea42adc65b9281ef463d (diff) | |
| download | pandoc-2fd7da07d4f044364609f42d8b8f799340960923.tar.gz | |
Man writer: don't escape " as \".
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1399 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | Text/Pandoc/Writers/Man.hs | 2 | ||||
| -rw-r--r-- | tests/writer.man | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Text/Pandoc/Writers/Man.hs b/Text/Pandoc/Writers/Man.hs index f83436b31..9037c24af 100644 --- a/Text/Pandoc/Writers/Man.hs +++ b/Text/Pandoc/Writers/Man.hs @@ -100,7 +100,7 @@ noteToMan opts num note = do -- | Association list of characters to escape. manEscapes :: [(Char, String)] -manEscapes = [('\160', "\\ "), ('\'', "\\[aq]")] ++ backslashEscapes "\".@\\" +manEscapes = [('\160', "\\ "), ('\'', "\\[aq]")] ++ backslashEscapes ".@\\" -- | Escape special characters for Man. escapeString :: String -> String diff --git a/tests/writer.man b/tests/writer.man index d1a8b8a86..e855aa807 100644 --- a/tests/writer.man +++ b/tests/writer.man @@ -49,7 +49,7 @@ Code in a block quote: .PP \f[CR] sub\ status\ { - \ \ \ \ print\ \"working\"; + \ \ \ \ print\ "working"; } \f[] .PP @@ -83,7 +83,7 @@ Code: ----\ (should\ be\ four\ hyphens) sub\ status\ { - \ \ \ \ print\ \"working\"; + \ \ \ \ print\ "working"; } this\ code\ block\ is\ indented\ by\ one\ tab |