 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;    
+;;;;
 ;;;;    L.S.E. editing support package
-;;;;    
+;;;;
 ;;;;    A major mode for editing L.S.E. code.  It provides convenient
 ;;;;    abbrevs for L.S.E. keywords, knows about the standard layout
 ;;;;    rules, and supports a native compile command.


(setq lse-default-font-lock
      ;;"Font-lock for L.S.E. mode.")
      (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"
