From bcd2a249061d0f428c4166a2b760a2251b8ba64b Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Tue, 31 May 2022 19:46:53 +0000
Subject: xepersian (31may22)

git-svn-id: svn://tug.org/texlive/trunk@63461 c570f23f-e606-0410-a88d-b1316a301751
---
 .../tex/xelatex/xepersian/xepersian-mathdigitspec.sty          | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'Master/texmf-dist/tex/xelatex/xepersian/xepersian-mathdigitspec.sty')

diff --git a/Master/texmf-dist/tex/xelatex/xepersian/xepersian-mathdigitspec.sty b/Master/texmf-dist/tex/xelatex/xepersian/xepersian-mathdigitspec.sty
index 27b780d7c93..360a01913cc 100644
--- a/Master/texmf-dist/tex/xelatex/xepersian/xepersian-mathdigitspec.sty
+++ b/Master/texmf-dist/tex/xelatex/xepersian/xepersian-mathdigitspec.sty
@@ -20,7 +20,7 @@
 %%   by Vafa Khalighi.
 %% 
 %% 
-%% \CheckSum{11118}
+%% \CheckSum{11130}
 %% \CharacterTable
 %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
 %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
@@ -289,9 +289,11 @@
 
 \ExplSyntaxOff
 \mathchardef\decimalseparator@point="013A
-{%
- \catcode`\.=\active
- \gdef.{\begingroup\obeyspaces\futurelet\@let@token\decimalseparator@pointcheck}}
+\bgroup
+  \uccode`\~`\.%
+  \uppercase{%
+\egroup
+  \def~}{\begingroup\obeyspaces\futurelet\@let@token\decimalseparator@pointcheck}
 \def\decimalseparator@pointcheck{\decimalseparator@check\MathDecimalSeparator\decimalseparator@point}
 \def\decimalseparator@check#1#2{%
   \ifx\@let@token1\endgroup#1\else
-- 
cgit v1.2.3

