 
 (setq lse-default-font-lock
       ;;"Font-lock for L.S.E. mode.")
-      (append 
+      (append
        '(
          ;; pretty chars:
          ("\\(_\\)" (1 (progn (compose-region (match-beginning 1) (match-end 1)

         ;; strings
         ("\\('[^'\n]*'\\)"
          (1 font-lock-string-face)))
       
       (let ((lse-keywords
              '("AFFICHER" "ALLER" "ALORS" "CHAINE" "CHARGER" "DEBUT"
                "EN" "ET" "EXECUTER" "FAIRE" "FIN" "GARER"
                "JUSQUA" "LIBERER" "LIRE" "LOCAL" "NON" "OU" "PAS"
                "PAUSE" "POUR" "PROCEDURE" "QUE" "RESULTAT" "RETOUR"  
                "SI" "SINON" "SUPPRIMER" "TABLEAU" "TANT" "TERMINER" ))
             (lse-builtins
              '("ENT" "RAC" "ABS" "EXP" "LGN" "SIN" "COS" "ATG" "ALE"

          ;; Type names.
          (cons (concat "\\<\\(" (regexp-opt lse-types) "\\)\\>")
                'font-lock-type-face)
          ))
       '(
         ;; fonction
         ("\\(&[A-Z][A-Z0-9]\\{0,4\\}\\)\\>"
