ltj-direction.lua: fix that direction can be changed by accident in an align.

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

diff --git a/src/ltjclasses.dtx b/src/ltjclasses.dtx
index d9322f9..a9bdf63 100644 (file)
--- a/src/ltjclasses.dtx
+++ b/src/ltjclasses.dtx
@@ -175,7 +175,7 @@
 %    \end{macrocode}
 % 縦組みの場合は|geometry|対応のために|filehook|も読み込んでおきます。
 %    \begin{macrocode}
-\RequirePackage{filehook}
+%<tate>\RequirePackage{filehook}
 %    \end{macrocode}
 %
 % \section{オプションスイッチ}
@@ -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{サイズオプション}