summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r--Build/source/texk/web2c/eptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/eptexdir/pdfutils.ch4
2 files changed, 6 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog
index efe193039ea..1840730be27 100644
--- a/Build/source/texk/web2c/eptexdir/ChangeLog
+++ b/Build/source/texk/web2c/eptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2022-07-17 Andreas Scherer <https://ascherer.github.io>
+
+ * pdfutils.ch: Adapt to upstream tex.ch.
+
2022-03-21 Karl Berry <karl@tug.org>
* TL'22 release.
diff --git a/Build/source/texk/web2c/eptexdir/pdfutils.ch b/Build/source/texk/web2c/eptexdir/pdfutils.ch
index eb567d3583b..611435b9135 100644
--- a/Build/source/texk/web2c/eptexdir/pdfutils.ch
+++ b/Build/source/texk/web2c/eptexdir/pdfutils.ch
@@ -698,7 +698,7 @@ no_expand: if cur_chr=0 then @<Suppress expansion of the next token@>
begin save_scanner_status:=scanner_status; scanner_status:=normal;
get_token; scanner_status:=save_scanner_status; t:=cur_tok;
back_input; {now |start| and |loc| point to the backed-up token |t|}
-if t>=cs_token_flag then
+if (t>=cs_token_flag)and(t<>end_write_token) then
begin p:=get_avail; info(p):=cs_token_flag+frozen_dont_expand;
link(p):=loc; start:=p; loc:=p;
end;
@@ -708,7 +708,7 @@ end
begin save_scanner_status:=scanner_status; scanner_status:=normal;
get_token; scanner_status:=save_scanner_status; t:=cur_tok;
back_input; {now |start| and |loc| point to the backed-up token |t|}
-if t>=cs_token_flag then
+if (t>=cs_token_flag)and(t<>end_write_token) then
begin p:=get_avail; info(p):=cs_token_flag+frozen_dont_expand;
link(p):=loc; start:=p; loc:=p;
end;