[latex3-commits] [latex3/latex2e] develop: Gh1200 (#1203) (0a656ee4)

github at latex-project.org github at latex-project.org
Wed Jan 17 18:17:00 CET 2024


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

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

commit 0a656ee45c02eb0a29e42eba37e3264ecaa6728f
Author: Ulrike Fischer <news3 at nililand.de>
Date:   Wed Jan 17 18:17:00 2024 +0100

    Gh1200 (#1203)
    
    * use \protected at write in ltproperties, issue #1200
    
    * adjust some tests
    
    * add changes entry
    
    ---------
    
    Co-authored-by: Ulrike Fischer <fischer at troubleshooting-tex.de>
    Co-authored-by: Frank Mittelbach <frank.mittelbach at latex-project.org>


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

0a656ee45c02eb0a29e42eba37e3264ecaa6728f
 base/changes.txt                                    |  7 +++++++
 base/ltproperties.dtx                               |  7 ++++---
 base/testfiles/github-1200.lvt                      | 17 +++++++++++++++++
 base/testfiles/github-1200.tlg                      |  8 ++++++++
 base/testfiles/properties-001.tlg                   |  1 +
 required/latex-lab/testfiles-bib/bib-003.luatex.tlg |  1 +
 required/latex-lab/testfiles-bib/bib-003.tlg        |  1 +
 required/latex-lab/testfiles-bib/bib-004.luatex.tlg |  1 +
 required/latex-lab/testfiles-bib/bib-004.tlg        |  1 +
 9 files changed, 41 insertions(+), 3 deletions(-)

diff --git a/base/changes.txt b/base/changes.txt
index c163b0d6..58e12856 100644
--- a/base/changes.txt
+++ b/base/changes.txt
@@ -72,6 +72,13 @@ All changes above are only part of the development branch for the next release.
 	* ltkeys.dtx: 
 	Trim spaces off key names taken from the raw-lists (gh1238)
 
+#########################
+# 2023-11-01 PL1 Release
+#########################
+
+2023-12-07 Ulrike Fischer <Ulrike.Fischer at latex-project.org> 
+	* ltproperties.dtx: use \protected at write, (gh1200)
+
 #########################
 # 2023-11-01 Release
 #########################
diff --git a/base/ltproperties.dtx b/base/ltproperties.dtx
index b52cbaea..6cb86c69 100644
--- a/base/ltproperties.dtx
+++ b/base/ltproperties.dtx
@@ -22,8 +22,8 @@
 %
 % for those people who are interested.
 %    \begin{macrocode}
-\def\ltpropertiesversion{1.0c}
-\def\ltpropertiesdate{2023-12-26}
+\def\ltpropertiesversion{1.0d}
+\def\ltpropertiesdate{2024-01-17}
 %    \end{macrocode}
 
 %<*driver>
@@ -551,6 +551,7 @@
 %   later too. That is all pretty easy using \pkg{expl3}: we accept a stray
 %   comma at the end of the list as that is easier to deal with than trying
 %   to tidy up, and there is no real downside.
+% \changes{v1.0d}{2024-01-17}{Use \cs{protected at write}}%   
 %    \begin{macrocode}
 \cs_new_protected:Npn \property_record:nN #1#2
   { \property_record:nV {#1} #2 }
@@ -561,7 +562,7 @@
   {
     \legacy_if:nT { @filesw }
       {
-        \iow_shipout_x:Nx \@auxout
+        \protected at write \@auxout {}
           {
             \token_to_str:N \new at label@record 
               {#1}
diff --git a/base/testfiles/github-1200.lvt b/base/testfiles/github-1200.lvt
new file mode 100644
index 00000000..184422e7
--- /dev/null
+++ b/base/testfiles/github-1200.lvt
@@ -0,0 +1,17 @@
+\ExplSyntaxOn
+\debug_on:n { deprecation,check-declarations }
+\ExplSyntaxOff
+\documentclass{article}
+\input{regression-test}
+\START
+
+\SHOWFILE{\jobname.aux}
+
+\OMIT
+\begin{document}
+\makeatletter
+xxx
+\def\@currentlabelname{\textit{blub}}
+\label{lab1}
+\RecordProperties{lab2}{title}
+\end{document}
\ No newline at end of file
diff --git a/base/testfiles/github-1200.tlg b/base/testfiles/github-1200.tlg
new file mode 100644
index 00000000..4d8411cc
--- /dev/null
+++ b/base/testfiles/github-1200.tlg
@@ -0,0 +1,8 @@
+This is a generated file for the l3build validation system.
+Don't change this file in any respect.
+-------- github-1200.aux (start) ---------
+(github-1200.aux) \relax^^M
+\newlabel{lab1}{{}{1}{\textit  {blub}}{}{}}^^M
+\new at label@record{lab2}{{title}{\textit  {blub}}}^^M
+\gdef \@abspage at last{1}^^M
+-------- github-1200.aux (end) -----------
diff --git a/base/testfiles/properties-001.tlg b/base/testfiles/properties-001.tlg
index 707c369d..89e0b676 100644
--- a/base/testfiles/properties-001.tlg
+++ b/base/testfiles/properties-001.tlg
@@ -309,6 +309,7 @@ Completed box being shipped out [1]
 ...\glue 9.90276 plus 0.86108
 ...\write1{\new at label@record{test7}{}}
 ...\penalty 10000
+...\penalty 10000
 ...\glue -3.59999
 ...\glue 0.0 plus 1.0fil
 ...\glue 0.0
diff --git a/required/latex-lab/testfiles-bib/bib-003.luatex.tlg b/required/latex-lab/testfiles-bib/bib-003.luatex.tlg
index 8e0f92c1..3bf97cca 100644
--- a/required/latex-lab/testfiles-bib/bib-003.luatex.tlg
+++ b/required/latex-lab/testfiles-bib/bib-003.luatex.tlg
@@ -140,6 +140,7 @@ Completed box being shipped out [1]
 ...\pdfliteral page <lua data reference ...>
 ...\write1{\new at label@record{tagpdfstruct-cite.citeA}{{tagstruct}{16}{tagstructobj}{24 0 R}}}
 ...\penalty 10000
+...\penalty 10000
 ...\glue(\parskip) 4.0 plus 2.0 minus 1.0
 ...\glue(\parskip) 0.0
 ...\glue(\baselineskip) 4.5
diff --git a/required/latex-lab/testfiles-bib/bib-003.tlg b/required/latex-lab/testfiles-bib/bib-003.tlg
index e9f4c12c..9f2d5945 100644
--- a/required/latex-lab/testfiles-bib/bib-003.tlg
+++ b/required/latex-lab/testfiles-bib/bib-003.tlg
@@ -174,6 +174,7 @@ Completed box being shipped out [1]
 ...\glue 5.90276 plus -0.13892 minus -1.0
 ...\write1{\new at label@record{tagpdfstruct-cite.citeA}{{tagstruct}{16}{tagstructobj}{25 0 R}}}
 ...\penalty 10000
+...\penalty 10000
 ...\glue(\parskip) 4.0 plus 2.0 minus 1.0
 ...\glue(\parskip) 0.0
 ...\glue(\baselineskip) 4.5
diff --git a/required/latex-lab/testfiles-bib/bib-004.luatex.tlg b/required/latex-lab/testfiles-bib/bib-004.luatex.tlg
index d2c5ea5d..3983ca91 100644
--- a/required/latex-lab/testfiles-bib/bib-004.luatex.tlg
+++ b/required/latex-lab/testfiles-bib/bib-004.luatex.tlg
@@ -177,6 +177,7 @@ Completed box being shipped out [1]
 ....\pdfliteral page <lua data reference ...>
 ....\write1{\new at label@record{tagpdfstruct-cite.citeA}{{tagstruct}{20}{tagstructobj}{37 0 R}}}
 ....\penalty 10000
+....\penalty 10000
 ....\glue(\parskip) 4.0 plus 2.0 minus 1.0
 ....\glue(\parskip) 0.0
 ....\glue(\baselineskip) 4.5
diff --git a/required/latex-lab/testfiles-bib/bib-004.tlg b/required/latex-lab/testfiles-bib/bib-004.tlg
index ba214fc9..2109781b 100644
--- a/required/latex-lab/testfiles-bib/bib-004.tlg
+++ b/required/latex-lab/testfiles-bib/bib-004.tlg
@@ -265,6 +265,7 @@ Completed box being shipped out [1]
 ....\glue 5.90276 plus -0.13892 minus -1.0
 ....\write1{\new at label@record{tagpdfstruct-cite.citeA}{{tagstruct}{20}{tagstructobj}{37 0 R}}}
 ....\penalty 10000
+....\penalty 10000
 ....\glue(\parskip) 4.0 plus 2.0 minus 1.0
 ....\glue(\parskip) 0.0
 ....\glue(\baselineskip) 4.5





More information about the latex3-commits mailing list.