1 files changed, 13 insertions, 12 deletions

diff --git a/arabluatex.dtx b/arabluatex.dtx
index 78bd3d4..01ceabc 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -4509,16 +4509,16 @@
 % it to suit our purpose:
 %    \begin{macrocode}
 \AtBeginDocument{\ifdef{\LR}%
-  {\RenewDocumentCommand{\LR}{m}{\bgroup\textdir TLT\rmfamily#1\egroup}}
-  {\NewDocumentCommand{\LR}{m}{\bgroup\textdir TLT\rmfamily#1\egroup}}}
+  {\RenewDocumentCommand{\LR}{m}{\bgroup\textdir TLT\normalfont#1\egroup}}
+  {\NewDocumentCommand{\LR}{m}{\bgroup\textdir TLT\normalfont#1\egroup}}}
 %    \end{macrocode}
 % \end{macro}
 % \begin{macro}{\RL} This one typesets its argument from right to
 % left. Same remark as above regarding the need of redefinition.
 %    \begin{macrocode}
 \AtBeginDocument{\ifdef{\RL}%
-  {\RenewDocumentCommand{\RL}{m}{\bgroup\textdir TRT\rmfamily#1\egroup}}
-  {\NewDocumentCommand{\RL}{m}{\bgroup\textdir TRT#1\rmfamily\egroup}}}
+  {\RenewDocumentCommand{\RL}{m}{\bgroup\textdir TRT\normalfont#1\egroup}}
+  {\NewDocumentCommand{\RL}{m}{\bgroup\textdir TRT#1\normalfont\egroup}}}
 %    \end{macrocode}
 % \end{macro}
 % \begin{macro}{\MkArbBreak}
@@ -4656,7 +4656,7 @@
 %   font may also be selected with the font-selecting commands of the
 %   \package{fontspec} package.
 %    \begin{macrocode}
-\def\al@trans@font{\rmfamily}%
+\def\al@trans@font{\normalfont}%
 \NewDocumentCommand{\SetTranslitFont}{m}{\def\al@trans@font{#1}}
 %    \end{macrocode}
 % \end{macro}
@@ -4671,10 +4671,11 @@
 % \begin{macro}{\altrfont}
 %   \changes{v1.21}{2020/07/13}{new command \cs{altrfont} to store
 %   font and shape information (trans mode)} Finally \cs{altrfont}
-%   is used internally by \package{arabluatex} to store the family and
-%   the shape of the font to be used for transliterated Arabic.
+%   is used internally by \package{arabluatex} to store family and
+%   shape information about the font to be used for transliterated
+%   Arabic.
 %    \begin{macrocode}
-\def\altrfont{\al@trans@font\al@trans@style }
+\def\altrfont{\al@trans@font\al@trans@style}
 %    \end{macrocode}
 % \end{macro}
 % \begin{macro}{\SetTranslitConvention}
@@ -4767,7 +4768,7 @@
   \ifvmode\leavevmode\fi%
   \bgroup\textdir TRT\arabicfont#1\egroup}
 \NewDocumentCommand{\txtrans}{+m}{%
-  \bgroup\textdir TLT\al@trans@font\al@trans@style#1\egroup}
+  \bgroup\textdir TLT\altrfont#1\egroup}
 %    \end{macrocode}
 % \end{macro}
 % \end{macro}
@@ -4791,7 +4792,7 @@
 \NewDocumentEnvironment{txarabtr}{}{%
   \par%
   \pardir TLT\textdir TLT%
-  \al@trans@font\al@trans@style}{\par}
+  \altrfont}{\par}
 %    \end{macrocode}
 % \end{environment}
 % \begin{macro}{\arb}
@@ -4820,7 +4821,7 @@
     \luastringO{\al@arb@rules}, \luastringO{\al@input@scheme}))}\egroup%
   \else%
   \ifx\@tempa\al@mode@trans%
-  \bgroup\textdir TLT\al@trans@font\al@trans@style%
+  \bgroup\textdir TLT%
   \luadirect{tex.sprint(arabluatex.processtrans(\luastringN{#2},
     \luastringO{\al@trans@convention},
     \luastringO{\al@arb@rules},
@@ -4885,7 +4886,7 @@
     \luastringO{\al@arb@rules}, \luastringO{\al@input@scheme}))}\egroup%
   \else%
   \ifx\@tempa\al@mode@trans%
-  \bgroup\pardir TLT\textdir TLT\al@trans@font\al@trans@style%
+  \bgroup\pardir TLT\textdir TLT%
   \luadirect{tex.sprint(arabluatex.processtrans(\luastringN{#2},
     \luastringO{\al@trans@convention},
     \luastringO{\al@arb@rules},