summaryrefslogtreecommitdiff
path: root/Build/source/texk
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2023-08-18 15:47:03 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2023-08-18 15:47:03 +0000
commit87a2a29e17e2dbd383665ddf3fb7f6f844f9d20e (patch)
tree0a807778f0bfd358aaa369f6f2ad9808afcf0564 /Build/source/texk
parente5a1f72fc714b143dad55f6d0d71e5e69947dac1 (diff)
pdftex.web: minor cleanup
git-svn-id: svn://tug.org/texlive/trunk@67970 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk')
-rw-r--r--Build/source/texk/web2c/pdftexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/pdftexdir/pdftex.web10
2 files changed, 8 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/pdftexdir/ChangeLog b/Build/source/texk/web2c/pdftexdir/ChangeLog
index 2900824c637..6fe4a4e7f91 100644
--- a/Build/source/texk/web2c/pdftexdir/ChangeLog
+++ b/Build/source/texk/web2c/pdftexdir/ChangeLog
@@ -1,3 +1,7 @@
+2023-08-18 Hironobu Yamashita <h.y.acetaminophen@gmail.com>
+
+ * pdftex.web: minor cleanup (sync with etex.ch r24155)
+
2023-03-29 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
* wcfname.test:
diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web
index 765bc64abcf..0bd8250696f 100644
--- a/Build/source/texk/web2c/pdftexdir/pdftex.web
+++ b/Build/source/texk/web2c/pdftexdir/pdftex.web
@@ -6531,11 +6531,11 @@ cs_count:=0;
eq_type(frozen_dont_expand):=dont_expand;
text(frozen_dont_expand):="notexpanded:";
@.notexpanded:@>
-
eq_type(frozen_primitive):=ignore_spaces;
equiv(frozen_primitive):=1;
eq_level(frozen_primitive):=level_one;
text(frozen_primitive):="pdfprimitive";
+
@ Here is the subroutine that searches the hash table for an identifier
that matches a given string of length |l>1| appearing in |buffer[j..
(j+l-1)]|. If the identifier is found, the corresponding hash table address
@@ -6654,7 +6654,6 @@ for k:=j+1 to j+l-1 do
while h>=prim_prime do h:=h-prim_prime;
end
-
@ Single-character control sequences do not need to be looked up in a hash
table, since we can use the character code itself as a direct address.
The procedure |print_cs| prints the name of a control sequence, given
@@ -8048,10 +8047,9 @@ if name<=17 then
@.*\relax@>
print_char(">");
end
-else if index<>in_open then {input from a pseudo file}
- begin print_nl("l."); print_int(line_stack[index+1]);
- end
-else begin print_nl("l."); print_int(line);
+else begin print_nl("l.");
+ if index=in_open then print_int(line)
+ else print_int(line_stack[index+1]); {input from a pseudo file}
end;
print_char(" ")