From 38013de8572ee9b6c9b5873d6f9e0bf6876215ed Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 23 Jan 2011 09:12:50 -0800
Subject: Textile writer: Don't HTML-escape between @'s.

---
 src/Text/Pandoc/Readers/Textile.hs | 2 +-
 src/Text/Pandoc/Writers/Textile.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index 4221754cc..7749a946c 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -18,7 +18,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 {- |
    Module      : Text.Pandoc.Readers.Textile
-   Copyright   : Copyright (C) 2010 Paul Rivier
+   Copyright   : Copyright (C) 2010-2011 Paul Rivier and John MacFarlane
    License     : GNU GPL, version 2 or above 
 
    Maintainer  : Paul Rivier <paul*rivier#demotera*com>
diff --git a/src/Text/Pandoc/Writers/Textile.hs b/src/Text/Pandoc/Writers/Textile.hs
index 4aaee0a32..f58d49483 100644
--- a/src/Text/Pandoc/Writers/Textile.hs
+++ b/src/Text/Pandoc/Writers/Textile.hs
@@ -378,7 +378,7 @@ inlineToTextile _ Ellipses = return "..."
 inlineToTextile _ (Code str) =
   return $ if '@' `elem` str
            then "<tt>" ++ escapeStringForXML str ++ "</tt>"
-           else "@" ++ escapeStringForXML str ++ "@" 
+           else "@" ++ str ++ "@" 
 
 inlineToTextile _ (Str str) = return $ escapeStringForTextile str
 
-- 
cgit v1.2.3