Petite douceur dans le raccourci des tableaux: si toutes les colonnes sont...

Petite douceur dans le raccourci des tableaux: si toutes les colonnes sont numériques, compte non tenu de celles commençant par une balise HTML ou une accoloade (raccourci SPIP) ni du Caption, les cellules seront alignées à droite. 

Exemple (mais d'où sort-il ?):

{{{
||Conseil d'Administration Collège B|
|{}|{{Liste 1}}|{{Liste 2}}|{{Liste 3}}|{{Total}}|
|{Jussieu}|185|323|190|698|
|{Pitié}|68|16|8|92|
|{Saint-Antoine}|29|10|6|45|
|{Tenon}|16|12|2|30|
|{Roscoff+Banyuls}|10|9|6|25|
|{Villefranche}|13|2|1|16|
|{{Total}}|321|372|213|{/}|
|{{Sièges}}|1|5|1|{/}|
}}}

ecrire/inc/texte.php

@@ -663,6 +663,7 @@ function traiter_tableau($bloc) {
 	$lignes = array();
 	$debut_table = $summary = '';
 	$l = 0;
+	$numeric = true;
 
 	// Traiter chaque ligne
 	foreach ($regs[1] as $ligne) {
@@ -729,6 +730,7 @@ function traiter_tableau($bloc) {
 	// et on parcourt le tableau a l'envers pour ramasser les
 	// colspan et rowspan en passant
 	$html = '';
+
 	for($l=count($lignes)-1; $l>=0; $l--) {
 		$cols= $lignes[$l];
 		$colspan=1;
@@ -751,15 +753,17 @@ function traiter_tableau($bloc) {
 				$attr.= " rowspan='$rowspans[$c]'";
 				$rowspans[$c]=1;
 			  }
-			  $ligne= '<td'.$attr.'>'.$cols[$c].'</td>'.$ligne;
+			  $ligne= "\n<td".$attr.'>'.$cols[$c].'</td>'.$ligne;
 			}
+			$numeric &= (preg_match('/[{<]/',$cols[$c][0]) || is_numeric($cols[$c]));
 		}
 
 		// ligne complete
 		$class = 'row_'.alterner($l+1, 'even', 'odd');
 		$html = "<tr class=\"$class\">" . $ligne . "</tr>\n".$html;
 	}
-
+	if ($numeric) 
+		$html = str_replace("\n<td", "\n<td style='text-align: right'", $html);
 	return "\n\n<table".$GLOBALS['class_spip_plus'].$summary.">\n"
 		. $debut_table
 		. "<tbody>\n"