pdftex space fixes continue, from pdftex r958

git-svn-id: svn://tug.org/texlive/trunk/Build/source@74095 c570f23f-e606-0410-a88d-b1316a301751
TeX-Live · Feb 18, 2025 · 1664cf0 · 1664cf0
1 parent 14f69b1
commit 1664cf0
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/texk/web2c/pdftexdir/ChangeLog b/texk/web2c/pdftexdir/ChangeLog
@@ -1,7 +1,13 @@
+2025-02-18  Thanh Han The  <hanthethanh@gmail.com>
+
+	* pdftex.web (pdf_begin_string): more space fixes.
+	(pdftex r958)
+
 2025-02-17  Thanh Han The  <hanthethanh@gmail.com>
 
 	* pdftex.web (pdf_begin_string): remove	"and (not must_set_text_pos)"
 	from condition for must_insert_space := true.
+	(pdftex r955)
 
 2025-02-16  Thanh Han The  <hanthethanh@gmail.com>
 

diff --git a/texk/web2c/pdftexdir/pdftex.web b/texk/web2c/pdftexdir/pdftex.web
@@ -16225,7 +16225,6 @@ end;
 
 procedure pdf_begin_string(f: internal_font_number); {begin to draw a string}
 var s_out, v, v_out: scaled;
-    save_pdf_delta_h: scaled;
     s: integer;
     must_end_string: boolean;  {must we end the current string?}
     must_insert_space: boolean;  {must we insert an interword space?}
@@ -16296,8 +16295,7 @@ begin
         {insert a real space char from the font when possible}
         if pdf_font_has_space_char[f] and pdf_doing_string then begin
             pdf_out(" ");
-            save_pdf_delta_h := pdf_delta_h;
-            adv_char_width(f, 32, 3); { to get |adv_char_width_s| and |adv_char_width_s_out|}
+            adv_char_width(f, 32, 4); { to get |adv_char_width_s| and |adv_char_width_s_out|}
             s := s - adv_char_width_s;
             s_out := s_out - adv_char_width_s_out;
             pdf_mark_char(f, 32);
@@ -16348,6 +16346,7 @@ begin
     pdf_read_dummy_font;
     pdf_begin_string(pdf_dummy_font);
     pdf_print(" ");
+    adv_char_width(pdf_dummy_font, 32, 4);
     pdf_end_string_nl;
 
     gen_faked_interword_space := s;