X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-direction.lua;h=c05d0ed6c35550f64022505ac5e97242fdc7c5a3;hb=b5ae2980b79b069dd439c80b784c10e1b4f86d2f;hp=03b7295254ee65caa26a74152004d5d41e3c319e;hpb=c7058402b4897aeb375eac689126792230877344;p=luatex-ja%2Fluatexja.git

diff --git a/src/ltj-direction.lua b/src/ltj-direction.lua
index 03b7295..c05d0ed 100644
--- a/src/ltj-direction.lua
+++ b/src/ltj-direction.lua
@@ -77,7 +77,7 @@ do
    end
 end
 
-
+--
 local function adjust_badness(hd)
    if not node_next(hd) and getid(hd)==id_whatsit and getsubtype(hd)==sid_user
    and getfield(hd, 'user_id')==DIR then
@@ -221,7 +221,6 @@ do
 	    node_set_attr(w, attr_dir, v)
 	    if lv==0 then page_direction = v end
 	 else
-	    Dnode.write(dir_pool[v]())
 	    if lv==0 then page_direction = v end
 	 end
          ensure_tex_attr(attr_icflag, 0)
@@ -281,7 +280,7 @@ do
    local function create_dir_whatsit_parbox(h, gc)
       stop_time_measure('tex_linebreak')
       -- start 側は ltj-debug.lua に
-      local new_dir =  ltjs.list_dir
+      local new_dir = ltjs.list_dir
       for line in traverse_id(id_hlist, to_direct(h)) do
 	 setfield(line, 'head', create_dir_whatsit(getlist(line), gc, new_dir) )
       end
@@ -756,6 +755,7 @@ do
       else
          setdimen('ltj@tempdima', 0)
       end
+      tex.sprint(cat_lp, '\\ltj@tempdima')
       tex.globaldefs = gt
    end
    luatexja.direction.get_box_dim = get_box_dim
@@ -1058,8 +1058,8 @@ do
             insert_after(db_head, db_tail, nn)
             db_tail = nn
          else
-	    setfield(db, 'head', nn)
-            db_head, db_tail = nn, nn
+            setfield(db, 'head', nn)
+	    db_head, db_tail = nn, nn
          end
       end
    end