More smart quote bug fixes:

+ LaTeX writer now handles consecutive quotes properly:
  for example, ``\,`hello'\,''
+ LaTeX reader now parses '\,' as empty Str
+ normalizeSpaces function in Shared now removes empty Str elements
+ Modified tests accordingly


git-svn-id: https://pandoc.googlecode.com/svn/trunk@506 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 1df2b4d38..2ba19f8dd 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -306,12 +306,14 @@ splitByIndices (x:xs) lst =
     first:(splitByIndices (map (\y -> y - x)  xs) rest)
 
 -- | Normalize a list of inline elements: remove leading and trailing
--- @Space@ elements, and collapse double @Space@s into singles.
+-- @Space@ elements, collapse double @Space@s into singles, and
+-- remove empty Str elements.
 normalizeSpaces :: [Inline] -> [Inline]
 normalizeSpaces [] = []
 normalizeSpaces list = 
     let removeDoubles [] = []
         removeDoubles (Space:Space:rest) = removeDoubles (Space:rest)
+        removeDoubles ((Str ""):rest) = removeDoubles rest 
         removeDoubles (x:rest) = x:(removeDoubles rest) in
     let removeLeading [] = []
         removeLeading lst = if ((head lst) == Space)