From 1c7ff5528e10e989ba7ea7b72182d5f34d4d4e29 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 17 Jun 2021 21:14:50 +0000 Subject: \letterspacefont use explicit \fontdimen6 and avoid problem with single-character command git-svn-id: svn://tug.org/texlive/trunk@59622 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/pdftexdir/ChangeLog | 19 ++++++++++++++++--- Build/source/texk/web2c/pdftexdir/pdftex.web | 7 ++++++- 2 files changed, 22 insertions(+), 4 deletions(-) diff --git a/Build/source/texk/web2c/pdftexdir/ChangeLog b/Build/source/texk/web2c/pdftexdir/ChangeLog index e5c4b014d49..f364dd9a085 100644 --- a/Build/source/texk/web2c/pdftexdir/ChangeLog +++ b/Build/source/texk/web2c/pdftexdir/ChangeLog @@ -1,3 +1,16 @@ +2021-01-04 Thanh Han The + + * pdftex.web (letter_space_font): use explicit \fontdimen6 (quad) + if specified: + https://mailman.ntg.nl/pipermail/ntg-pdftex/2021-June/004335.html + + And avoid problem when single-character command + is used with \letterspacefont: + https://mailman.ntg.nl/pipermail/ntg-pdftex/2021-June/004336.html + + Both reports from Robert Schlict. + (pdftex r853, r854) + 2021-06-15 Marcel Fabian Krueger * ptexlib.h (glyph_unicode_entry): use integer, not long, @@ -1500,7 +1513,7 @@ * pdftex.ch (do_extension): Recover variables unused by TeX. -2009-09-16 Han The Thanh +2009-09-16 Thanh Han The * writettf.c: patch for TTC from Liu Yubao @@ -1538,14 +1551,14 @@ * pdftex.web (sup_dest_names_size): increase to 500000; test document from Peter Abbott to Karl, 12 Aug 2009 12:24:43. -2009-07-13 Han The Thanh +2009-07-13 Thanh Han The * mapfile.c: treat TTC fonts as TTF * writejpg.c: fix bitmap resolution * writettf.c: fix segfault for certain TTF fonts * pdftex.web: enable pk generation by default -2009-06-26 Han The Thanh +2009-06-26 Thanh Han The * pdftex.web: bugfix from Hartmut: fix \pdfobj file {foo} for files foo that don't end with '\n' diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web index 4ae1f20716f..15f4efaa8ba 100644 --- a/Build/source/texk/web2c/pdftexdir/pdftex.web +++ b/Build/source/texk/web2c/pdftexdir/pdftex.web @@ -17641,12 +17641,17 @@ begin if scan_keyword("nolig") then set_no_ligatures(k); {disable ligatures for letter-spaced fonts} nw := height_base[k] - width_base[k]; + + if (quad(k) = 0) and (quad(f) > 0) then + quad(k) := quad(f); + if quad(k) = 0 then + pdf_warning("\letterspacefont", "font has zero em size (\fontdimen6)", true, true); + for i := 0 to nw - 1 do font_info[width_base[k] + i].sc := font_info[width_base[k] + i].sc + round_xn_over_d(quad(k), e, 1000); {append, e.g., '+100ls' to font name} - flush_str(font_name[k]); str_room(length(font_name[k]) + 7); {|abs(e) <= 1000|} old_setting := selector; selector := new_string; -- cgit v1.2.3