From b592d7eea3a31bd26d6efb1576d41ab3be573f22 Mon Sep 17 00:00:00 2001
From: Fil <fil@rezo.net>
Date: Thu, 10 Apr 2008 21:38:37 +0000
Subject: [PATCH] corriger convenablement #1313, c'est-a-dire sans casser la
 compliance XHTML des liens {{{ [<img2>->URL] }}}, cf. #69 et [11424] et bien
 d'autres commits :-/

---
 ecrire/inc/texte.php | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/ecrire/inc/texte.php b/ecrire/inc/texte.php
index 474872e863..b51a1333a2 100644
--- a/ecrire/inc/texte.php
+++ b/ecrire/inc/texte.php
@@ -563,8 +563,8 @@ function corriger_typo($letexte) {
 	if ($typographie = charger_fonction(lang_typo(), 'typographie')) {
 
 		// Proteger les caracteres typographiques a l'interieur des tags html
-		$protege = "!':;?~%";
-		$illegal = "\x1\x2\x3\x4\x5\x6\x7";
+		$protege = "!':;?~%-";
+		$illegal = "\x1\x2\x3\x4\x5\x6\x7\x8";
 		if (preg_match_all(",</?[a-z!][^<>]*[!':;\?~%][^<>]*>,imsS",
 		$letexte, $regs, PREG_SET_ORDER)) {
 			foreach ($regs as $reg) {
@@ -1133,15 +1133,15 @@ function traiter_raccourci_lien_lang($lien, $class, $texte, $hlang, $lang, $bull
 		$hlang = $lang;
 	$lang = ($hlang ? ' hreflang="'.$hlang.'"' : '') . $bulle;
 
-	# Penser au cas [<imgXX|right>->URL]
 	# ceci s'execute heureusement avant les tableaux et leur "|".
 	# Attention, le texte initial est deja echappe mais pas forcement
 	# celui retourne par calculer_url.
 
-	return '<a href="'.$lien
+	# Penser au cas [<imgXX|right>->URL], qui exige typo('<a>...</a>')
+	return typo('<a href="'.$lien
 		. ($class ? '" class="'.$class : '')
 		. '"'.$lang.'>'
-		. typo($texte, true, $connect).'</a>';
+		. $texte.'</a>', true, $connect);
 }
 
 // Repere dans la partie texte d'un raccourci [texte->...]
-- 
GitLab