From 3b8bb1ebb2557fc550860dabc59b91a93d2ec6be Mon Sep 17 00:00:00 2001
From: Luigi Scarso <luigi.scarso@gmail.com>
Date: Thu, 30 Mar 2023 00:29:13 +0200
Subject: [PATCH] bugfix for setpdforigin()  (A. Matthias)

---
 source/texk/web2c/luatexdir/ChangeLog           | 5 ++++-
 source/texk/web2c/luatexdir/lua/lpdflib.c       | 2 +-
 source/texk/web2c/luatexdir/luatex_svnversion.h | 2 +-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/source/texk/web2c/luatexdir/ChangeLog b/source/texk/web2c/luatexdir/ChangeLog
index 868f64cc3..27fbebcbb 100644
--- a/source/texk/web2c/luatexdir/ChangeLog
+++ b/source/texk/web2c/luatexdir/ChangeLog
@@ -1,5 +1,8 @@
+2023-03-30  Luigi Scarso <luigi.scarso@gmail.com> 
+    * bugfix for setpdforigin()  (A. Matthias) 
+
 2023-02-22  Luigi Scarso <luigi.scarso@gmail.com> 
-    *  fix latelua data reference (side effect of deferred late additions) (H.Hagen)
+    * fix latelua data reference (side effect of deferred late additions) (H.Hagen)
 
 2023-02-18  Luigi Scarso <luigi.scarso@gmail.com> 
     * Fixed the "Invalid unicode ranges in CMap beginbfrange operator bug" as in pdfTeX (Hàn Thế Thành)
diff --git a/source/texk/web2c/luatexdir/lua/lpdflib.c b/source/texk/web2c/luatexdir/lua/lpdflib.c
index 70fbde76b..263fd5644 100644
--- a/source/texk/web2c/luatexdir/lua/lpdflib.c
+++ b/source/texk/web2c/luatexdir/lua/lpdflib.c
@@ -1048,7 +1048,7 @@ static int setpdforigin(lua_State * L)
     if (lua_type(L, 1) == LUA_TNUMBER) {
         h = (int) lua_roundnumber(L, 1);
         if (lua_type(L, 2) == LUA_TNUMBER) {
-            v = (int) lua_roundnumber(L, 1);
+            v = (int) lua_roundnumber(L, 2);
         } else {
             v = h;
         }
diff --git a/source/texk/web2c/luatexdir/luatex_svnversion.h b/source/texk/web2c/luatexdir/luatex_svnversion.h
index 257aec718..b3b92453e 100644
--- a/source/texk/web2c/luatexdir/luatex_svnversion.h
+++ b/source/texk/web2c/luatexdir/luatex_svnversion.h
@@ -1,4 +1,4 @@
 #ifndef luatex_svn_revision_h
 #define luatex_svn_revision_h
-#define luatex_svn_revision 7567
+#define luatex_svn_revision 7568
 #endif
-- 
GitLab