From c2993a6fc6882ed4b5fc4162238cfda8f84dbc81 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 27 Nov 2017 12:24:55 +0300
Subject: Muse reader: parse "~~" as non-breaking space in Emacs mode

---
 test/Tests/Readers/Muse.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'test')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 19d5e0fae..4c7e57980 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -105,6 +105,9 @@ tests =
 
       , "Linebreak" =: "Line <br>  break" =?> para ("Line" <> linebreak <> "break")
 
+      , test emacsMuse "Non-breaking space"
+        ("Foo~~bar" =?> para ("Foo\160bar"))
+
       , testGroup "Code markup"
         [ "Code" =: "=foo(bar)=" =?> para (code "foo(bar)")
 
-- 
cgit v1.2.3