[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