diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2023-08-18 15:47:03 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2023-08-18 15:47:03 +0000 |
commit | 87a2a29e17e2dbd383665ddf3fb7f6f844f9d20e (patch) | |
tree | 0a807778f0bfd358aaa369f6f2ad9808afcf0564 /Build/source/texk | |
parent | e5a1f72fc714b143dad55f6d0d71e5e69947dac1 (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/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/pdftexdir/pdftex.web | 10 |
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(" ") |