From e97f8e6f5797b0319cd9c1da26ff73c95fe9961c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 10 Apr 1998 20:54:46 +0000 Subject: @cartouche: Align right side correctly. From: dale.smith@bellhow.com (Dale Smith) Date: Fri, 06 Mar 1998 14:47:02 GMT --- texinfo.tex | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'texinfo.tex') diff --git a/texinfo.tex b/texinfo.tex index 09f8968..d8eff35 100644 --- a/texinfo.tex +++ b/texinfo.tex @@ -3636,8 +3636,8 @@ width0pt\relax} \fi % \nonarrowing is a flag. If "set", @lisp etc don't narrow margins. \let\nonarrowing=\relax -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% \cartouche: draw rectangle w/rounded corners around argument +% @cartouche ... @end cartouche: draw rectangle w/rounded corners around +% environment contents. \font\circle=lcircle10 \newdimen\circthick \newdimen\cartouter\newdimen\cartinner @@ -3664,9 +3664,9 @@ width0pt\relax} \fi \cartinner=\hsize \advance\cartinner by-\lskip \advance\cartinner by-\rskip \cartouter=\hsize - \advance\cartouter by 18pt % allow for 3pt kerns on either + \advance\cartouter by 18.4pt % allow for 3pt kerns on either % side, and for 6pt waste from -% each corner char +% each corner char, and rule thickness \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip % Flag to tell @lisp, etc., not to narrow margin. \let\nonarrowing=\comment -- cgit v1.2.3