From 80ea048bb26fdf50dbfe767d130054cf2dfc7d57 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 29 Nov 2023 21:22:03 -0800
Subject: LaTeX reader: handle otherlanguage environment...

...and language-name environments like
`\begin{french}...\end{french}`.
Closes #9202.
---
 test/command/9202.md | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 test/command/9202.md

(limited to 'test/command')

diff --git a/test/command/9202.md b/test/command/9202.md
new file mode 100644
index 000000000..c8096f695
--- /dev/null
+++ b/test/command/9202.md
@@ -0,0 +1,62 @@
+```
+% pandoc -f latex -t native
+\begin{otherlanguage}{french}
+Bonjour.
+\end{otherlanguage}
+^D
+[ Div
+    ( "" , [] , [ ( "lang" , "fr" ) ] )
+    [ Para [ Str "Bonjour." ] ]
+]
+```
+
+```
+% pandoc -f latex -t native
+\begin{otherlanguage*}{french}
+Bonjour.
+\end{otherlanguage*}
+^D
+[ Div
+    ( "" , [ "otherlanguage*" ] , [] )
+    [ Para
+        [ Span ( "" , [] , [] ) [ Str "french" ]
+        , SoftBreak
+        , Str "Bonjour."
+        ]
+    ]
+]
+```
+
+```
+% pandoc -f latex -t native
+\textfrench{Bonjour}
+^D
+[ Para
+    [ Span ( "" , [] , [ ( "lang" , "fr" ) ] ) [ Str "Bonjour" ]
+    ]
+]
+```
+
+```
+% pandoc -f latex -t native
+\foreignlanguage{swissgerman}{Guten tag}
+^D
+[ Para
+    [ Span
+        ( "" , [] , [ ( "lang" , "de-CH-1901" ) ] )
+        [ Str "Guten" , Space , Str "tag" ]
+    ]
+]
+```
+
+```
+% pandoc -f latex -t native
+\begin{french}
+Bonjour.
+\end{french}
+^D
+[ Div
+    ( "" , [] , [ ( "lang" , "fr" ) ] )
+    [ Para [ Str "Bonjour." ] ]
+]
+```
-- 
cgit v1.2.3