From f6726201c0f8d03681bc11d36c5581b7f7e61007 Mon Sep 17 00:00:00 2001
From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Mon, 9 Jun 2014 20:28:22 +0900
Subject: [PATCH] ltj-direction.lua: added pre_output_filter callback to set
 direction of \box255 (output box).

---
 src/ltj-direction.lua | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/ltj-direction.lua b/src/ltj-direction.lua
index fba6cd3..9e585f1 100644
--- a/src/ltj-direction.lua
+++ b/src/ltj-direction.lua
@@ -367,6 +367,7 @@ do
       if b then
 	 local box_dir = get_box_dir(to_direct(b), dir_yoko)
 	 if box_dir%dir_node_auto ~= list_dir%dir_node_auto then
+            --print('unbox', reg_num, box_dir, list_dir)
 	    ltjb.package_error(
 	       'luatexja',
 	       "Incompatible direction list can't be unboxed",
@@ -834,3 +835,13 @@ do
 			      dir_adjust_vpack,
 			      'ltj.direction', 10000)
 end
+
+do
+   local function dir_adjust_pre_output(h, gc)
+      return to_node(create_dir_whatsit_vbox(to_direct(h), gc))
+   end
+   luatexbase.add_to_callback('pre_output_filter', 
+			      dir_adjust_pre_output,
+			      'ltj.direction', 10000)
+
+end
-- 
2.11.0