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

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{サイズオプション}

diff --git a/src/ltjtarticle.cls b/src/ltjtarticle.cls
index 5647ffb..5d6f910 100644 (file)
--- a/src/ltjtarticle.cls
+++ b/src/ltjtarticle.cls
@@ -91,9 +91,13 @@
   \setlength\paperheight {257mm}
   \setlength\paperwidth  {182mm}}
 \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}}}
 \if@compatibility
   \renewcommand{\@ptsize}{0}
 \else

diff --git a/src/ltjtbook.cls b/src/ltjtbook.cls
index 1846889..254fed7 100644 (file)
--- a/src/ltjtbook.cls
+++ b/src/ltjtbook.cls
@@ -93,9 +93,13 @@
   \setlength\paperheight {257mm}
   \setlength\paperwidth  {182mm}}
 \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}}}
 \if@compatibility
   \renewcommand{\@ptsize}{0}
 \else

diff --git a/src/ltjtreport.cls b/src/ltjtreport.cls
index ccc95e1..6d4ea6e 100644 (file)
--- a/src/ltjtreport.cls
+++ b/src/ltjtreport.cls
@@ -92,9 +92,13 @@
   \setlength\paperheight {257mm}
   \setlength\paperwidth  {182mm}}
 \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}}}
 \if@compatibility
   \renewcommand{\@ptsize}{0}
 \else