Missing defaults in E type are -NoValue-

latex3 · Aug 13, 2021 · 929eda3 · 929eda3
1 parent 279cd50
commit 929eda3
Show file tree

Hide file tree

Showing 3 changed files with 32 additions and 6 deletions.
diff --git a/base/ltcmd.dtx b/base/ltcmd.dtx
@@ -2412,16 +2412,21 @@
       }
     \@@_split_signature_loop:Nw
   }
-\cs_new_protected:Npn \@@_show_E:Nw #1 #2 #3
+\cs_set_protected:Npn \@@_tmp:w #1
   {
-    \cs_set_protected:Npn \@@_tmp:w ##1 ##2
+    \cs_new_protected:Npn \@@_show_E:Nw ##1 ##2 ##3
       {
-        \@@_split_start_item:
-        \@@_split_end_item:n { #1 ##1 {##2} }
+        \cs_set_protected:Npn \@@_tmp:w ####1 ####2
+          {
+            \@@_split_start_item:
+            \@@_split_end_item:n { ##1 ####1 {####2} }
+          }
+        \@@_tl_mapthread_function:nnN {##2}
+          { ##3 {#1} {#1} {#1} {#1} {#1} {#1} {#1} {#1} {#1} } \@@_tmp:w
+        \@@_split_signature_loop:Nw
       }
-    \@@_tl_mapthread_function:nnN {#2} {#3} \@@_tmp:w
-    \@@_split_signature_loop:Nw
   }
+\exp_args:NV \@@_tmp:w \c_novalue_tl
 %    \end{macrocode}
 %
 %   Minor wrinkle with the prefixes: they use \cs{@@_split_add_item:n}

diff --git a/base/testfiles-ltcmd/github-569b.lvt b/base/testfiles-ltcmd/github-569b.lvt
@@ -1,5 +1,7 @@
 \input{test2e}
 
+\RequirePackage{xparse}
+
 \START
 
 \DeclareDocumentCommand\foo{+oD(){bar}+m!>{\SplitList{;}}O{b;a;z}t^e{_^}E{^_}{{UP}{DOWN}}}
@@ -12,4 +14,9 @@
 
 \ShowCommand\foo
 
+\DeclareDocumentCommand\foo{E{_^+-*/}{{A}{B}{C}}}
+  {\typeout{##1:#1^^J##2:#2^^J##3:#3^^J##4:#4^^J##5:#5^^J##6:#6^^J}}
+
+\ShowCommand\foo
+
 \END
diff --git a/base/testfiles-ltcmd/github-569b.tlg b/base/testfiles-ltcmd/github-569b.tlg
@@ -40,3 +40,17 @@ Don't change this file in any respect.
 ##8:#8
 ##9:#9
 }.
+> \foo=document command:
+  #1:E_{A}
+  #2:E^{B}
+  #3:E+{C}
+  #4:E-{-NoValue-}
+  #5:E*{-NoValue-}
+  #6:E/{-NoValue-}
+->\typeout {##1:#1
+##2:#2
+##3:#3
+##4:#4
+##5:#5
+##6:#6
+}.