From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Tue, 11 May 2021 08:06:24 +0000 (+0900)
Subject: \ltj@stop@overwrite@primitive (test)
X-Git-Tag: 20210517.0~6
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=b222d14f27caa8f1a52f012b529aa5f65fbdfe2a;p=luatex-ja%2Fluatexja.git

\ltj@stop@overwrite@primitive (test)
---

diff --git a/src/ltj-latex.sty b/src/ltj-latex.sty
index 6517262..d3bf538 100644
--- a/src/ltj-latex.sty
+++ b/src/ltj-latex.sty
@@ -122,6 +122,29 @@
 
 \RequirePackage{lltjp-geometry}
 
+\ifdefined\ltj@stop@overwrite@primitive
+  \begingroup
+    \def\ltj@loop#1{%
+      \unless\ifx#1\@nil
+        \escapechar-1
+        \ifcsname ltj@@orig@\string#1\endcsname
+          \ifcsname ltj@@\string#1\endcsname
+            \edef\ltj@@next{\unexpanded{\global\let#1}\csname ltj@@orig@\string#1\endcsname}%
+            \edef\ltj@@temp{ltj@@orig@\string#1}%
+            \escapechar92
+            \PackageWarningNoLine{luatexja}{%
+              Restoring \string#1\space into its orignal meaning\MessageBreak
+              (\expandafter\meaning\csname\ltj@@temp\endcsname)}%
+            \ltj@@next%
+          \fi
+        \fi
+        \let\ltj@@next\ltj@loop
+      \else\let\ltj@@next\relax\fi\ltj@@next
+    }%
+    \expandafter\ltj@loop\ltj@stop@overwrite@primitive\@nil
+  \endgroup
+\fi
+
 %%------------------ all done
 \ltj@latex@AtEnd
 \endinput
diff --git a/test/test34-primitive.tex b/test/test34-primitive.tex
new file mode 100644
index 0000000..bf747e2
--- /dev/null
+++ b/test/test34-primitive.tex
@@ -0,0 +1,42 @@
+\makeatletter
+\def\ltj@stop@overwrite@primitive{\insert\vadjust}
+\makeatother
+
+\documentclass[landscape]{article}
+\usepackage[margin=10mm,centering]{geometry}
+
+\usepackage{luatexja}
+\usepackage{breqn}
+
+\begin{document}
+\ttfamily\parindent0pt\footnotesize
+\def\chk#1{%
+  \par\medskip\leavevmode
+  \hbox to 11em{\expandafter\string\csname #1\endcsname:\hss}\ 
+    \expandafter\meaning\csname #1\endcsname\\
+  \hbox to 11em{\expandafter\string\csname ltj@@#1\endcsname:\hss}\ 
+    \expandafter\meaning\csname ltj@@#1\endcsname\\
+  \hbox to 11em{\expandafter\string\csname ltj@@orig@#1\endcsname:\hss}\ 
+    \expandafter\meaning\csname ltj@@orig@#1\endcsname
+}
+
+a\vadjust{\hrule height 1pt width 30pt}bc\\d
+
+\chk{/}
+\chk{insert}
+\chk{vadjust}
+\chk{raise}
+\chk{lower}
+\chk{moveleft}
+\chk{moveright}
+\chk{vsplit}
+\chk{vcenter}
+\chk{unhbox}
+\chk{unvbox}
+\chk{unhcopy}
+\chk{unvcopy}
+\chk{lastbox}
+\end{document}
+
+
+