[latex3-commits] [latex3/latex3] main: Alternative approach to suppressing :D indexing (f0f19892d)

[github at latex-project.org]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/f0f19892d4540765cf9ad39a5cdd2770332616c2

>---------------------------------------------------------------

commit f0f19892d4540765cf9ad39a5cdd2770332616c2
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue Nov 28 22:32:25 2023 +0000

    Alternative approach to suppressing :D indexing
    
    See #1345.


>---------------------------------------------------------------

f0f19892d4540765cf9ad39a5cdd2770332616c2
 l3kernel/l3doc.dtx   | 21 +++++----------------
 l3kernel/l3names.dtx | 12 ++++++------
 2 files changed, 11 insertions(+), 22 deletions(-)

diff --git a/l3kernel/l3doc.dtx b/l3kernel/l3doc.dtx
index ca9674fb3..4ecf5f7d8 100644
--- a/l3kernel/l3doc.dtx
+++ b/l3kernel/l3doc.dtx
@@ -697,6 +697,7 @@ and all files in that bundle must be distributed together.
 %   {
 %     \l_@@_macro_deprecated_bool ,
 %     \l_@@_macro_internal_bool,
+%     \l_@@_macro_nodoc_bool ,
 %     \l_@@_macro_TF_bool,
 %     \l_@@_macro_pTF_bool,
 %     \l_@@_macro_noTF_bool,
@@ -712,6 +713,7 @@ and all files in that bundle must be distributed together.
 %    \begin{macrocode}
 \bool_new:N \l_@@_macro_deprecated_bool
 \bool_new:N \l_@@_macro_internal_bool
+\bool_new:N \l_@@_macro_nodoc_bool
 \bool_new:N \l_@@_macro_TF_bool
 \bool_new:N \l_@@_macro_pTF_bool
 \bool_new:N \l_@@_macro_noTF_bool
@@ -2398,6 +2400,7 @@ and all files in that bundle must be distributed together.
     added .code:n = { \@@_date_set_past:Nn \l_@@_date_added_tl {#1} },
     updated .code:n = { \@@_date_set_past:Nn \l_@@_date_updated_tl {#1} } ,
     deprecated .bool_set:N = \l_@@_macro_deprecated_bool , 
+    undocumented .bool_set:N = \l_@@_macro_nodoc_bool ,
     tested .code:n = { } ,
     label .code:n =
       {
@@ -2851,6 +2854,7 @@ and all files in that bundle must be distributed together.
     int .value_forbidden:n = true ,
     int .code:n =
       { \bool_set_true:N \l_@@_macro_internal_bool } ,
+    undocumented .bool_set:N = \l_@@_macro_nodoc_bool ,
     var .value_forbidden:n = true ,
     var .code:n =
       { \bool_set_true:N \l_@@_macro_var_bool } ,
@@ -3321,8 +3325,6 @@ and all files in that bundle must be distributed together.
 %     \@@_macro_end_wrap_item:n,
 %     \@@_print_documented:
 %   }
-% \begin{macro}[EXP]{\@@_if_macro_primitive_p:n}
-% \begin{macro}[EXP]{\@@_if_macro_primitive_aux:w}
 %   Surround each item by \tn{texttt}, replacing |_|
 %   by \tn{_} as well.  Then list the
 %   macro names through \cs{seq_use:Nnnn}, unless there are too many.
@@ -3359,8 +3361,8 @@ and all files in that bundle must be distributed together.
         ! \bool_lazy_any_p:n
           {
             { \@@_if_macro_internal_p:n {##1} }
-            { \@@_if_macro_primitive_p:n {##1} }
             { \l_@@_macro_deprecated_bool }
+            { \l_@@_macro_nodoc_bool }
           }
       }
     \seq_if_empty:NF \g_@@_nested_names_seq
@@ -3378,21 +3380,8 @@ and all files in that bundle must be distributed together.
       }
     \seq_gclear:N \g_@@_nested_names_seq
   }
-\prg_new_conditional:Npnn \@@_if_macro_primitive:n #1 { p }
-  {
-    \tl_if_empty:eTF
-      {
-        \exp_after:wN \@@_if_macro_primitive_aux:w
-        \tl_to_str:n { #1 :D }
-      }
-      { \prg_return_false: } { \prg_return_true: }
-  }
-\exp_last_unbraced:NNNNo
-  \cs_new:Npn \@@_if_macro_primitive_aux:w #1 { \tl_to_str:n { :D } } { }
 %    \end{macrocode}
 % \end{macro}
-% \end{macro}
-% \end{macro}
 %
 % \subsubsection{Misc}
 %
diff --git a/l3kernel/l3names.dtx b/l3kernel/l3names.dtx
index 479a4b5df..443dbd1d7 100644
--- a/l3kernel/l3names.dtx
+++ b/l3kernel/l3names.dtx
@@ -1461,7 +1461,7 @@
 %<*lua>
 %    \end{macrocode}
 %
-% \begin{macro}{\tex_strcmp:D}
+% \begin{macro}[undocumented]{\tex_strcmp:D}
 %   Compare two strings, expanding to |0| if they are equal,
 %   |-1| if the first one is smaller and |1| if the second one is smaller.
 %   Here \enquote{smaller} refers to codepoint order which does not correspond to
@@ -1482,7 +1482,7 @@ end, 'global')
 %    \end{macrocode}
 % \end{macro}
 %
-% \begin{macro}{\tex_Ucharcat:D}
+% \begin{macro}[undocumented]{\tex_Ucharcat:D}
 %   Creating arbitrary chars using |tex.cprint|.
 %   The alternative approach using |token.new(...)| is about 10\% slower
 %   but needed to create arbitrary space tokens.
@@ -1501,7 +1501,7 @@ end, 'global')
 %    \end{macrocode}
 % \end{macro}
 %
-% \begin{macro}{\tex_filesize:D}
+% \begin{macro}[undocumented]{\tex_filesize:D}
 %   Wrap the function from |ltxutils|.
 %    \begin{macrocode}
 luacmd('tex_filesize:D', function()
@@ -1511,7 +1511,7 @@ end, 'global')
 %    \end{macrocode}
 % \end{macro}
 %
-% \begin{macro}{\tex_mdfivesum:D}
+% \begin{macro}[undocumented]{\tex_mdfivesum:D}
 %   There are two cases: Either hash a file or a string.
 %   Both are already implemented in l3luatex or built-in.
 %    \begin{macrocode}
@@ -1527,7 +1527,7 @@ end, 'global')
 %    \end{macrocode}
 % \end{macro}
 %
-% \begin{macro}{\tex_filemoddate:D}
+% \begin{macro}[undocumented]{\tex_filemoddate:D}
 %   A primitive for getting the modification date of a file.
 %    \begin{macrocode}
 luacmd('tex_filemoddate:D', function()
@@ -1537,7 +1537,7 @@ end, 'global')
 %    \end{macrocode}
 % \end{macro}
 %
-% \begin{macro}{\tex_filedump:D}
+% \begin{macro}[undocumented]{\tex_filedump:D}
 %   An emulated primitive for getting a hexdump from a (partial) file.
 %   The length has a default of |0|. This is consistent with
 %   \pdfTeX, but it effectivly makes the primitive useless without an