texlive[59622] Build/source/texk/web2c/pdftexdir: \letterspacefont

[commits+karl at tug.org]

Revision: 59622
          http://tug.org/svn/texlive?view=revision&revision=59622
Author:   karl
Date:     2021-06-17 23:14:50 +0200 (Thu, 17 Jun 2021)
Log Message:
-----------
\letterspacefont use explicit \fontdimen6 and avoid problem with single-character command

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
    trunk/Build/source/texk/web2c/pdftexdir/pdftex.web

Modified: trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/ChangeLog	2021-06-17 20:48:44 UTC (rev 59621)
+++ trunk/Build/source/texk/web2c/pdftexdir/ChangeLog	2021-06-17 21:14:50 UTC (rev 59622)
@@ -1,3 +1,16 @@
+2021-01-04  Thanh Han The  <hanthethanh at gmail.com>
+
+	* 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  <tex at 2krueger.de>
 
 	* 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 <hanthethanh at gmail.com>
+2009-09-16  Thanh Han The <hanthethanh at gmail.com>
 
 	* writettf.c: patch for TTC from Liu Yubao <yubao.liu at gmail.com>
 
@@ -1538,7 +1551,7 @@
 	* 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 <hanthethanh at gmail.com>
+2009-07-13  Thanh Han The <hanthethanh at gmail.com>
 
 	* mapfile.c: treat TTC fonts as TTF
 	* writejpg.c: fix bitmap resolution
@@ -1545,7 +1558,7 @@
 	* writettf.c: fix segfault for certain TTF fonts
 	* pdftex.web: enable pk generation by default
 
-2009-06-26  Han The Thanh <hanthethanh at gmail.com>
+2009-06-26  Thanh Han The <hanthethanh at gmail.com>
 
 	* pdftex.web: bugfix from Hartmut: fix \pdfobj file {foo} for files
 	          foo that don't end with '\n'

Modified: trunk/Build/source/texk/web2c/pdftexdir/pdftex.web
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/pdftex.web	2021-06-17 20:48:44 UTC (rev 59621)
+++ trunk/Build/source/texk/web2c/pdftexdir/pdftex.web	2021-06-17 21:14:50 UTC (rev 59622)
@@ -17641,12 +17641,17 @@
     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;