MediaWiki writer: Avoid extra blank line in tables with empty cells.

Note that the old output is semantically identical, but the
new output looks better.

Closes #4794.

2 files changed, 19 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs
index df50028a0..666853a3c 100644
--- a/src/Text/Pandoc/Writers/MediaWiki.hs
+++ b/src/Text/Pandoc/Writers/MediaWiki.hs
@@ -313,6 +313,7 @@ tableCellToMediaWiki headless rownum (alignment, width, bs) = do
   let sep = case bs of
                  [Plain _] -> " "
                  [Para  _] -> " "
+                 []        -> ""
                  _         -> "\n"
   return $ marker ++ attr ++ sep ++ trimr contents
 
diff --git a/test/command/4794.md b/test/command/4794.md
new file mode 100644
index 000000000..8356d2157
--- /dev/null
+++ b/test/command/4794.md
@@ -0,0 +1,18 @@
+```
+% pandoc -f markdown -t mediawiki
+| Column1 | Column2 | Column3 |
+| ------- | ------- | ------- |
+| text    |         | text    |
+^D
+{|
+! Column1
+! Column2
+! Column3
+|-
+| text
+|
+| text
+|}
+
+
+```