ltjclasses.dtx: Make ltjt*.cls compatible with \geometry, etc.

[luatex-ja/luatexja.git] / src / ltjclasses.dtx

diff --git a/src/ltjclasses.dtx b/src/ltjclasses.dtx
index 723a15d..a9bdf63 100644 (file)
--- a/src/ltjclasses.dtx
+++ b/src/ltjclasses.dtx
@@ -325,9 +325,13 @@
 %    \begin{macrocode}
 %<*tate>
 \AtEndOfPackageFile{geometry}{%
+  \setlength{\@tempdima}{\textheight}%
+  \setlength{\textheight}{\textwidth}%
+  \setlength{\textwidth}{\@tempdima}%
+  \expandafter\def\expandafter\Gm@process\expandafter{\Gm@process
     \setlength{\@tempdima}{\textheight}%
     \setlength{\textheight}{\textwidth}%
-    \setlength{\textwidth}{\@tempdima}}
+    \setlength{\textwidth}{\@tempdima}}}
 %</tate>
 %
 % \subsection{サイズオプション}