[latex3-commits] [latex3/latex2e] develop: suspend tagging in \@settodim in calc (#1530) (ddbe1583e)

[github at latex-project.org]

Repository : https://github.com/latex3/latex2e
On branch  : develop
Link       : https://github.com/latex3/latex2e/commit/ddbe1583e5fd59da0f61c3db4e545aeeca6d6a06

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

commit ddbe1583e5fd59da0f61c3db4e545aeeca6d6a06
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Sun Nov 3 18:28:22 2024 +0100

    suspend tagging in \@settodim in calc (#1530)
    
    * suspend tagging in \@settodim in calc
    
    * update test, remove stray text.


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

ddbe1583e5fd59da0f61c3db4e545aeeca6d6a06
 required/latex-lab/testfiles-math/mtag-tlc3.tlg       | 10 +++++-----
 .../testfiles/gh-tagging628-settodim-calc.lvt         |  9 +++++++++
 .../testfiles/gh-tagging628-settodim-calc.tlg         | 19 +++++++++++++++++++
 required/tools/calc.dtx                               |  8 +++++---
 required/tools/changes.txt                            |  3 +++
 5 files changed, 41 insertions(+), 8 deletions(-)

diff --git a/required/latex-lab/testfiles-math/mtag-tlc3.tlg b/required/latex-lab/testfiles-math/mtag-tlc3.tlg
index 5736ecce7..db8ac7a51 100644
--- a/required/latex-lab/testfiles-math/mtag-tlc3.tlg
+++ b/required/latex-lab/testfiles-math/mtag-tlc3.tlg
@@ -527,12 +527,12 @@ Overfull \hbox (9.0542pt too wide) detected at line 434
 .....\mathoff
 ....\glue(\tabskip) 0.0
 .\pdfliteral page{EMC}
-.\marks4{e-,295,322,}
-.\marks4{e+,295,322,}
-.\write1{\new at label@record{mcid-296}{{tagabspage}{\__property_code_tagabspage: }{tagmcabs}{296}{tagmcid}{\__property_code_tagmcid: }}}
+.\marks4{e-,293,321,}
+.\marks4{e+,293,321,}
+.\write1{\new at label@record{mcid-294}{{tagabspage}{\__property_code_tagabspage: }{tagmcabs}{294}{tagmcid}{\__property_code_tagmcid: }}}
 .\pdfliteral shipout page{/Formula <</MCID \flag_height:n {__tag/mcid}\flag_raise:n {__tag/mcid} >> BDC}
-.\marks4{b-,296,323,Formula,,,}
-.\marks4{b+,296,323,Formula,,,}
+.\marks4{b-,294,322,Formula,,,}
+.\marks4{b+,294,322,Formula,,,}
 .\mathoff
 .\glue 0.0 plus 1.0fil
 )
diff --git a/required/latex-lab/testfiles/gh-tagging628-settodim-calc.lvt b/required/latex-lab/testfiles/gh-tagging628-settodim-calc.lvt
new file mode 100644
index 000000000..513a1e476
--- /dev/null
+++ b/required/latex-lab/testfiles/gh-tagging628-settodim-calc.lvt
@@ -0,0 +1,9 @@
+\DocumentMetadata{testphase={phase-III,table}}
+\input{regression-test}
+\documentclass{article} 
+\usepackage{calc}
+\begin{document}
+\START
+\settowidth\parindent{\begin{tabular}{l}xxx\end{tabular}}
+x
+\end{document}
diff --git a/required/latex-lab/testfiles/gh-tagging628-settodim-calc.tlg b/required/latex-lab/testfiles/gh-tagging628-settodim-calc.tlg
new file mode 100644
index 000000000..edc1e17d8
--- /dev/null
+++ b/required/latex-lab/testfiles/gh-tagging628-settodim-calc.tlg
@@ -0,0 +1,19 @@
+This is a generated file for the l3build validation system.
+Don't change this file in any respect.
+LaTeX Font Info:    External font `cmex10' loaded for size
+(Font)              <7> on input line ....
+LaTeX Font Info:    External font `cmex10' loaded for size
+(Font)              <5> on input line ....
+[1
+] (gh-tagging628-settodim-calc.aux)
+Package tagpdf Info: Finalizing the tagging structure:
+(tagpdf)             Writing out ~6 structure objects
+(tagpdf)             with ~3 'MC' leaf nodes.
+(tagpdf)             Be patient if there are lots of objects!
+Package tagpdf Info: writing ParentTree
+Package tagpdf Info: writing IDTree
+Package tagpdf Info: writing RoleMap
+Package tagpdf Info: writing ClassMap
+Package tagpdf Info: writing NameSpaces
+Package tagpdf Info: writing StructElems
+Package tagpdf Info: writing Root
diff --git a/required/tools/calc.dtx b/required/tools/calc.dtx
index 154c6ba26..414d04df8 100644
--- a/required/tools/calc.dtx
+++ b/required/tools/calc.dtx
@@ -40,7 +40,7 @@
 %<driver> \ProvidesFile{calc.drv}
 % \fi
 %         \ProvidesFile{calc.dtx}
-          [2023/07/08 v4.3 Infix arithmetic (KKT,FJ)]
+          [2024/11/03 v4.3a Infix arithmetic (KKT,FJ)]
 %
 % \iffalse
 %<*driver>
@@ -1323,6 +1323,8 @@
 % \begin{macro}{\@settodim}
 % \changes{v4.2}{2005/08/06}
 %    {Changed kernel macro}
+% \changes{v4.3a}{2024/11/03}
+%    {Suspend Tagging}
 % \begin{macro}{\settototalheight}
 % \changes{v4.2}{2005/08/06}
 %    {Added macro}
@@ -1333,7 +1335,8 @@
 % A search on the internet confirmed that some people do that kind of thing.
 %    \begin{macrocode}
 \def\@settodim#1#2#3{%
-  \setbox\@tempboxa\hbox{{#3}}%
+  \setbox\@tempboxa\hbox
+    {{\SuspendTagging{\@settodim}#3\ResumeTagging{\@settodim}}}%
   \dimen at ii=\z@
   \@tf at r\reserved at a #1\do{%
   \advance\dimen at ii\reserved at a\@tempboxa}%
@@ -1354,4 +1357,3 @@
 %
 % \Finale
 \endinput
-
diff --git a/required/tools/changes.txt b/required/tools/changes.txt
index 9a3c944b2..83058c735 100644
--- a/required/tools/changes.txt
+++ b/required/tools/changes.txt
@@ -5,6 +5,9 @@ completeness or accuracy and it contains some references to files that
 are not part of the distribution.
 =======================================================================
 
+2024-11-03  Ulrike Fischer  <Ulrike.Fischer at latex-project.org>
+	* calc.dtx: suspend tagging in \@settodim (tagging/628)
+
 ================================================================================
 All changes above are only part of the development branch for the next release.
 ================================================================================