ipamjm.sty を新しめの LaTeX に対応させる

ipamjm.sty.diff

--- C:/texlive/texmf-local/tex/platex/ipamjm/ipamjm-2022-01-09.sty	Thu Jan  9 22:42:00 2020
+++ C:/texlive/texmf-local/tex/platex/ipamjm/ipamjm.sty	Sun Nov 26 20:39:04 2023
@@ -29,6 +29,7 @@
 	\ifnum \@tempcntb<65536
 		\divide\@tempcntb by "1000
 		\kanjishape{\ifcase\@tempcntb0\or1\or2\or3\or4\or5\or6\or7\or8\or9\or a\or b\or c\or d\or e\or f\fi}%
+		\selectfont
 		\multiply\@tempcntb by "1000
 		\advance\@tempcnta by -\@tempcntb
 	\else
@@ -39,6 +40,7 @@
 			\advance\@tempcnta by -90001
 			\kanjishape{z}%
 		\fi
+		\selectfont
 	\fi
 	\@tempcntb=\@tempcnta
 	\divide\@tempcntb by "40
@@ -46,11 +48,9 @@
 	\advance\@tempcnta by \@tempcntb
 	\if@ipamjm@uplatex
 		\advance\@tempcnta by "113030
-		\selectfont
 		\char\@tempcnta
 	\else
 		\advance\@tempcnta by "3030
-		\selectfont
 		\char\jis\@tempcnta
 	\fi
 }