From ace3b80f1eba86d4819bb21643271b6152d9f59b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 7 Dec 2010 20:08:14 -0800
Subject: [PATCH] Smart punctuation:  don't alllow ellipses containing spaces.

Previously we allowed '. . .', ' . . . ', etc.  This caused
too many complications, and removed author's flexibility in
combining ellipses with spaces and periods.
---
 src/Text/Pandoc/Parsing.hs | 2 +-
 tests/testsuite.txt        | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index d63fcd0a7..104b75343 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -755,7 +755,7 @@ doubleQuoteEnd :: GenParser Char st ()
 doubleQuoteEnd = oneOf "\"\8221" >> return ()
 
 ellipses :: GenParser Char st Inline
-ellipses = oneOfStrings ["...", " . . . ", ". . .", " . . ."] >> return Ellipses
+ellipses = try $ string "..." >> return Ellipses
 
 dash :: GenParser Char st Inline
 dash = enDash <|> emDash
diff --git a/tests/testsuite.txt b/tests/testsuite.txt
index 7f6e89449..a8730878a 100644
--- a/tests/testsuite.txt
+++ b/tests/testsuite.txt
@@ -496,7 +496,7 @@ Some dashes:  one---two --- three--four -- five.
 
 Dashes between numbers: 5-7, 255-66, 1987-1999. 
 
-Ellipses...and. . .and . . . .
+Ellipses...and...and....
 
 -----