[latex3-commits] [git/LaTeX3-latex3-latex2e] gh648: Specifically define deprecated types (c2fe7b66)

[PhelypeOleinik]

Repository : https://github.com/latex3/latex2e
On branch  : gh648
Link       : https://github.com/latex3/latex2e/commit/c2fe7b661ae592b96148dd036ae8e9e911431da1

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

commit c2fe7b661ae592b96148dd036ae8e9e911431da1
Author: PhelypeOleinik <phelype.oleinik at latex-project.org>
Date:   Wed Aug 25 08:43:01 2021 -0300

    Specifically define deprecated types


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

c2fe7b661ae592b96148dd036ae8e9e911431da1
 base/lthooks.dtx | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/base/lthooks.dtx b/base/lthooks.dtx
index 41a64c71..53ed8227 100644
--- a/base/lthooks.dtx
+++ b/base/lthooks.dtx
@@ -3261,6 +3261,16 @@
 \tl_const:cn { c_@@_generic_env/./begin_tl } { + }
 \tl_const:cn { c_@@_generic_env/./end_tl   } { + }
 \tl_const:cn { c_@@_generic_include/./end_tl } { - }
+%    \end{macrocode}
+%
+%   Deprecated generic hooks:
+%    \begin{macrocode}
+\clist_map_inline:nn { file , package , class , include }
+  {
+    \tl_const:cn { c_@@_deprecated_#1/./before_tl } { }
+    \tl_const:cn { c_@@_deprecated_#1/./after_tl  } { }
+  }
+\tl_const:cn { c_@@_deprecated_include/./end_tl } { }
 %<latexrelease>\EndIncludeInRelease
 %    \end{macrocode}
 %
@@ -4766,8 +4776,12 @@
   { \@@_if_deprecated_generic:w #1 / / / \s_@@_mark }
 \cs_new:Npn \@@_if_deprecated_generic:w #1 / #2 / #3 / #4 \s_@@_mark
   {
-    \cs_if_exist:cTF { c_@@_generic_#1/./#2_tl }
-      { \prg_return_true: }
+    \cs_if_exist:cTF { c_@@_deprecated_#1/./#2_tl }
+      {
+        \tl_if_empty:nTF {#3}
+          { \prg_return_false: }
+          { \prg_return_true: }
+      }
       { \prg_return_false: }
   }
 %    \end{macrocode}