Lines Matching refs:para
434 $comment, $pfirst, $plast, @para, @tag, $changeindent);
472 @para = ();
475 # Define para boundaries
488 push(@para, "<!--\n");
493 push(@para, $_);
506 push(@para, "<!--\n");
514 push(@para, $_);
520 push(@para, "-->\n");
550 push(@para, $_);
554 push(@para, "-->\n") if $comment; # Close open comment
559 &font(*para);
560 print @para;
562 &font(*para);
564 @para,
567 @tag = shift(@para);
569 &font(*para);
574 @para;
577 # Next para is not a definition list
586 # Indent/outdent the *next* para
660 local(*para) = @_;
663 return 0 if $#para == -1; # Ignore empty paragraphs
671 foreach (@para) {
676 if ($para[0] =~ /^<!--/ || $para[0] =~ /^<BR>/) {
681 if ($para[$#para] =~ /^-->/ || $para[$#para] =~ /^<BR>/) {
684 push(@end, $#para); # End at the end
691 $part = join('', @para[$begin[$i] .. $end[$i]]);
729 if ($end[$i] == $#para || $para[$end[$i] + 1] =~ /^<BR>/) {
740 # Rebuild this section of @para
744 $para[$j] = $1;
751 $para[$end[$#end]] =~ s/(\n)?$/<\/B>$1/ if $bold;
752 $para[$end[$#end]] =~ s/(\n)?$/<\/I>$1/ if $italic;