[latex3-commits] [latex3/latex2e] gh1200: use \protected at write in ltproperties, issue #1200 (4399f7f1)

[github at latex-project.org]

Repository : https://github.com/latex3/latex2e
On branch  : gh1200
Link       : https://github.com/latex3/latex2e/commit/4399f7f1c986c0836fb5a095d3b5b2fe9979fe72

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

commit 4399f7f1c986c0836fb5a095d3b5b2fe9979fe72
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Thu Dec 7 15:24:54 2023 +0100

    use \protected at write in ltproperties, issue #1200


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

4399f7f1c986c0836fb5a095d3b5b2fe9979fe72
 base/changes.txt                  |  7 +++++++
 base/ltproperties.dtx             |  6 +++---
 base/testfiles/github-1200.lvt    | 17 +++++++++++++++++
 base/testfiles/github-1200.tlg    |  8 ++++++++
 base/testfiles/properties-001.tlg |  1 +
 5 files changed, 36 insertions(+), 3 deletions(-)

diff --git a/base/changes.txt b/base/changes.txt
index 812143d3..adad99a6 100644
--- a/base/changes.txt
+++ b/base/changes.txt
@@ -10,6 +10,13 @@ not part of the distribution.
 All changes above are only part of the development branch for the next release.
 ================================================================================
 
+#########################
+# 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 40c50cd2..3a7569c2 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-10-15}
+\def\ltpropertiesversion{1.0d}
+\def\ltpropertiesdate{2023-12-07}
 %    \end{macrocode}
 
 %<*driver>
@@ -561,7 +561,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