xepersian-hm (7may20)

git-svn-id: svn://tug.org/texlive/trunk@55061 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 14 insertions, 8 deletions

diff --git a/Master/texmf-dist/source/xelatex/xepersian-hm/xepersian-hm.dtx b/Master/texmf-dist/source/xelatex/xepersian-hm/xepersian-hm.dtx
index 0cf960fe36b..5e2ac7ef40f 100644
--- a/Master/texmf-dist/source/xelatex/xepersian-hm/xepersian-hm.dtx
+++ b/Master/texmf-dist/source/xelatex/xepersian-hm/xepersian-hm.dtx
@@ -67,7 +67,7 @@ make time to fix.
 %    }^^A
 % }
 % 
-% \date{Released \quad 2020-05-01 \quad v0.5c}
+% \date{Released \quad 2020-05-07 \quad v0.5d}
 % 
 % \maketitle
 % 
@@ -96,7 +96,7 @@ make time to fix.
 \RequirePackage{zref-savepos}[2020-03-03]
 \RequirePackage{xepersian}
 \ExplSyntaxOn
-\ProvidesExplPackage {xepersian-hm} {2020-05-01} {0.5c} { Fixes~issues~in~xepersian~package }
+\ProvidesExplPackage {xepersian-hm} {2020-05-07} {0.5d} { Fixes~issues~in~xepersian~package }
 
 \int_const:Nn \c_xephm_ksh_int {"0640} % kashida
 \int_const:Nn \c_xephm_lrm_int {"200E} % left-right-mark
@@ -175,14 +175,19 @@ make time to fix.
 \tl_set:Nn \l_xephm_default_tl      { default }
 \tl_set:Nn \l_xephm_noskip_tl       { noskip }
 
-\msg_new:nnx { xepersian-hm } { kashida-character-is-not-available-in-the-main-font }
+\msg_new:nnn { xepersian-hm } { kashida-character-is-not-available-in-the-main-font }
   {
     Sorry,~ kashida~ character~ is~ not~ available~ in~ the~ main~ font~!
   }
 
-\msg_new:nnx { xepersian-hm } { value-not-available-for-kashida-option }
+\msg_new:nnn { xepersian-hm } { value-not-available-for-kashida-option }
   {
-    Sorry,~ value~ `\l_xephm_gap_filler_tl'~ is~ not~ available~ for~ kashida~ option~ yet~!
+    Sorry,~ value~ `#1'~ is~ not~ available~ for~ `Kashida'~ option~ yet~!
+  }
+
+\msg_new:nnn { xepersian-hm } { specify-value-for-kashida-option }
+  {
+    Sorry,~ you~ must~ specify~ a~ value~ for~ `Kashida'~ option~ yet~!
   }
 
 \keys_define:nn { xepersian-hm }
@@ -211,7 +216,8 @@ make time to fix.
               {
                 \tl_set:Nn \l_xephm_gap_filler_tl { \l_xephm_stretch_hrule_tl }
               }
-          } { } { \tl_set:Nn \l_xephm_filler_default_tl { #1 } }
+          } { } { \tl_set:Nx \l_xephm_gap_filler_tl { #1 } }
+        \tl_if_empty:NT \l_xephm_gap_filler_tl { \msg_error:nn { xepersian-hm } { specify-value-for-kashida-option } }
         \bool_set_true:N \l_xephm_kashida_hm_fix_bool
         \tex_input:D { kashida-xepersian-hm.def }
       } ,
@@ -282,7 +288,7 @@ make time to fix.
 %    \begin{macrocode}
 %<*kashida-xepersian-hm-def>
 \ExplSyntaxOn
-\ProvidesExplFile {kashida-xepersian-hm.def} {2020-05-01} {0.5c} { Fixes~implementation~of~Kashida~in~xepersian~package }
+\ProvidesExplFile {kashida-xepersian-hm.def} {2020-05-07} {0.5d} { Fixes~implementation~of~Kashida~in~xepersian~package }
 
 \newXeTeXintercharclass \c_xephm_d_charclass % dual-joiner class
 \newXeTeXintercharclass \c_xephm_l_charclass % lam
@@ -499,7 +505,7 @@ make time to fix.
         \XeTeXinterchartoks \c_xephm_l_charclass \c_xephm_a_charclass =
           { }
       }
-  } { } { \msg_error:nn { xepersian-hm } { value-not-available-for-kashida-option } }
+  } { } { \msg_error:nnx { xepersian-hm } { value-not-available-for-kashida-option } { \l_xephm_gap_filler_tl } }
 
 \NewDocumentCommand \KashidaHMFixOn {} { \bool_set_true:N \l_xephm_kashida_hm_fix_bool }
 \NewDocumentCommand \KashidaHMFixOff {} { \bool_set_false:N \l_xephm_kashida_hm_fix_bool }