[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.94,1.95"
Martin Quinson
mquinson at alioth.debian.org
Sun Nov 27 13:58:19 UTC 2005
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv561
Modified Files:
Sgml.pm
Log Message:
Reindent + circumvent emacs pretty printer stupidity
Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -d -r1.94 -r1.95
--- Sgml.pm 26 Nov 2005 21:54:45 -0000 1.94
+++ Sgml.pm 27 Nov 2005 13:58:17 -0000 1.95
@@ -933,11 +933,11 @@
$self->pushline( ($verb>1?"": (" " x $indent)).$tag.($verb?"":"\n"));
$indent ++ unless $empty{$event->data->name()} ;
} else {
- $tag =~ s/<po4abeg name="([^"]+)">/<![ $1 [/;
+ $tag =~ s/<po4abeg name="([^"]+)">/<![ $1 [/; #"; Stupid emacs
$tag =~ s/<po4aend>/]]>/;
$buffer .= $tag;
}
- } # end of type eq 'start_element'
+ } # end of type eq 'start_element'
elsif ($event->type eq 'end_element') {
my $tag = ($empty{$event->data->name()}
@@ -988,15 +988,15 @@
}
unless ($event->data->name() =~ m/^(PO4ABEG|PO4AEND)$/si) {
- if ($indent{$event->data->name()}) {
- $indent -- ;
- # add indenting space only when not in verbatim
- # add the tailing \n only if out of verbatim after that tag
- $self->pushline(($verb?"":(" " x $indent)).$tag.($verb>1?"":"\n"));
- } else {
- $buffer .= $tag;
- }
- $verb-- if $verbatim{$event->data->name()};
+ if ($indent{$event->data->name()}) {
+ $indent -- ;
+ # add indenting space only when not in verbatim
+ # add the tailing \n only if out of verbatim after that tag
+ $self->pushline(($verb?"":(" " x $indent)).$tag.($verb>1?"":"\n"));
+ } else {
+ $buffer .= $tag;
+ }
+ $verb-- if $verbatim{$event->data->name()};
}
} # end of type eq 'end_element'
More information about the Po4a-commits
mailing list