X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=src%2Fpatches%2Flltjp-listings.sty;h=459a56c6d622f8c1efa318c0ff551d35164035ed;hb=5cc51f73b0d45eb57ce08e1cfef323883e419ce8;hp=1edb37eb7736bb5ca1783595a72b1c7d1a58084c;hpb=4cbbc0ea6187be893f82d212935cf567c7784a54;p=luatex-ja%2Fluatexja.git

diff --git a/src/patches/lltjp-listings.sty b/src/patches/lltjp-listings.sty
index 1edb37e..459a56c 100644
--- a/src/patches/lltjp-listings.sty
+++ b/src/patches/lltjp-listings.sty
@@ -252,7 +252,10 @@
 
 
 % 白線対策
+\newif\ifltj@lst@frame@top
+\newdimen\ltj@lst@frame@lslimit
 \gdef\lst@frameInit{%
+    \ltj@lst@frame@toptrue
     \ifx\lst@framelshape\@empty \let\lst@frameL\@empty \fi
     \ifx\lst@framershape\@empty \let\lst@frameR\@empty \fi
     \def\lst@framevrule{\vrule\@width\lst@framerulewidth\relax}%
@@ -273,7 +276,10 @@
     \@tempdima\z@
     \ifdim\ht\strutbox<\cht\@tempdima=\dimexpr\cht-\ht\strutbox\relax\fi
     \ifdim\dp\strutbox<\cdp\advance\@tempdima=\dimexpr\cdp-\dp\strutbox\relax\fi
-    \edef\lst@framelr{\lineskiplimit-\the\@tempdima\copy\lst@framebox}%
+    \ltj@lst@frame@lslimit=-\@tempdima
+    \def\lst@framelr{%
+      \ifltj@lst@frame@top\ltj@lst@frame@topfalse\else\lineskiplimit\ltj@lst@frame@lslimit\fi
+      \copy\lst@framebox}%
     %%%% ここまで
     \ifx\lst@frametshape\@empty\else
         \lst@frameH T\lst@frametshape