tweaked @format literal handling

This commit is contained in:
david 2002-03-02 16:10:55 +00:00
parent 676a471a1d
commit ee684e119b
1 changed files with 4 additions and 3 deletions

View File

@ -178,6 +178,7 @@ $replacement = "";
'@exdent' =>'DROPLINE',
'@finalout' =>'DROPLINE',
'@footnotestyle' =>'DROPLINE',
'@format' =>'LITERALBLOCK',
'@flushleft' =>'DROPLINE',
'@end flushleft' =>'DROPLINE',
'@flushright' =>'DROPLINE',
@ -439,8 +440,8 @@ $replacement = "";
%blocks = (
'@quotation' =>'<blockquote><literallayout>',
'@end quotation' =>'</literallayout></blockquote>',
'@format' =>'<literallayout>',
'@end format' =>'</literallayout>',
# '@format' =>'<literallayout>',
# '@end format' =>'</literallayout>',
);
# these are inline @-Commands which are replaced by a set of tags instead of one-for-one
@ -1868,7 +1869,7 @@ sub literalblock {
if ($pattern =~ /\bformat\b/) {
&message("start programlisting") if ($verbose > 2);
$literaltag = 'programlisting';
$suppressconversion++;
# $suppressconversion++;
$suppresspara++;
$buf .= '<programlisting>' . "\n";
} elsif ($pattern =~ /\bexample\b/) {