Le 1 juin 2023 benoit a écrit : > Il me reste juste l'exception pour le cas ou je veux laisser les "\n" des > lignes qui se terminent par un "." ?
Ah oui j'avais zappé ça. Voilà mon texte de test : Je voudrais reformater du texte en colonne, qui a été just- ifié avec des retours à la ligne (\n) et est - de coupure de mot. Mais pas ce dernier. Et l'ajout de la ligne qui va bien : (defun ConvertRet () "Convertit un retour à la ligne." (interactive) (let ( (p1 (region-beginning)) (p2 (region-end))) (save-restriction (narrow-to-region p1 p2) (goto-char (point-min)) (while (re-search-forward "-\\\n" nil t) (replace-match "" nil t)) (goto-char (point-min)) (while (re-search-forward "\\\n" nil t) (cond (not match ".\\\n") (replace-match " " nil t))) ))) (defun indentBuffer () "Convertit un texte jutifié avec des retours à la ligne." (interactive) (mark-whole-buffer) (ConvertRet))