Fix for #4171 fix: don't wrap note references after SoftBreak

2 files changed, 16 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index b2f9bbc53..e10fcd5ce 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -312,6 +312,8 @@ inlineListToOrg lst = hcat <$> mapM inlineToOrg (fixNotes lst)
   where fixNotes [] = []  -- prevent note ref from wrapping, see #4171
         fixNotes (Space : n@Note{} : rest) =
           Str " " : n : fixNotes rest
+        fixNotes (SoftBreak : n@Note{} : rest) =
+          Str " " : n : fixNotes rest
         fixNotes (x : rest) = x : fixNotes rest
 
 -- | Convert Pandoc inline element to Org.
diff --git a/test/command/4171.md b/test/command/4171.md
index 649263638..3256d4673 100644
--- a/test/command/4171.md
+++ b/test/command/4171.md
@@ -9,3 +9,17 @@ a
 
 [fn:1] b
 ```
+
+
+```
+% pandoc -f org -t org
+Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+ [fn:1] a
+
+[fn:1] b
+^D
+Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa [fn:1]
+a
+
+[fn:1] b
+```