From d68f8d2e6705db2e11a987de52f1c9f71fbef80d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 10 Mar 2025 14:48:57 -0700
Subject: Markdown writer: treat `Emph [Emph ils]]` as `ils`.

Otherwise we get `**content**` which means strong emphasis.

This is a more robust solution than using `_`, which won't work
for intraword emphasis.

Closes #10642.
---
 src/Text/Pandoc/Writers/Markdown/Inline.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Text/Pandoc/Writers/Markdown/Inline.hs b/src/Text/Pandoc/Writers/Markdown/Inline.hs
index da04e4b5e..c45132bea 100644
--- a/src/Text/Pandoc/Writers/Markdown/Inline.hs
+++ b/src/Text/Pandoc/Writers/Markdown/Inline.hs
@@ -365,6 +365,8 @@ inlineToMarkdown opts (Span attrs ils) = do
                         tagWithAttrs "span" attrs <> contents <> literal "</span>"
                       | otherwise -> contents
 inlineToMarkdown _ (Emph []) = return empty
+inlineToMarkdown opts (Emph [Emph ils]) = -- #10642
+  inlineListToMarkdown opts ils
 inlineToMarkdown opts (Emph lst) = do
   variant <- asks envVariant
   contents <- inlineListToMarkdown opts lst
-- 
cgit v1.2.3