From 882070b00aa7ce7b73475941d1c19c79904fdb7c Mon Sep 17 00:00:00 2001
From: Hironobu Yamashita <h.y.acetaminophen@gmail.com>
Date: Sun, 23 Oct 2022 00:23:12 +0000
Subject: ptex-base.ch: initialize k in adjust_hlist (H. Kitagawa)

git-svn-id: svn://tug.org/texlive/trunk@64786 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/web2c/ptexdir/ChangeLog    | 5 +++++
 Build/source/texk/web2c/ptexdir/ptex-base.ch | 1 +
 2 files changed, 6 insertions(+)

(limited to 'Build/source/texk/web2c')

diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index f2a01c072b0..fbbe305440e 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2022-10-23  Hironori Kitagawa  <h_kitagawa2001@yahoo.co.jp>
+
+	* ptex-base.ch: initialize k in adjust_hlist.
+	https://github.com/texjporg/tex-jp-build/issues/151
+
 2022-09-03  TANAKA Takuji  <ttk@t-lab.opal.ne.jp>
 
 	* pbibtex.ch:
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index 88b050791df..1db71ff012c 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -7660,6 +7660,7 @@ if s<>null then
 end;
 
 @ @<Seek list and make |t| pointing widow penalty position@>=
+k:=0;
 while(p<>null) do
 begin if is_char_node(p) then
   begin if font_dir[font(p)]<>dir_default then
-- 
cgit v1.2.3