          ("\\([0-9]+E[-+]?[0-9]+\\)"             (1 font-lock-constant-face))
          ("\\([0-9]+\\.[0-9]*\\)"                (1 font-lock-constant-face))
          ("\\([0-9]+\\)"                         (1 font-lock-constant-face))
-         ;; left arrow
-         ("_" (1 (prog1 nil (compose-region (match-beginning 0) (match-end 0)
-                                            LEFTWARD_ARROW 'decompose-region))))
          ;; line numbers:
          ("^\\([0-9]+\\)"
           (1 font-lock-type-face)))))
+
 
 (setq lse-font-lock lse-default-font-lock)
 

      (delete-region (match-beginning 0) (match-end 0)))))




;;;; lse-mode.el                      -- 2003-01-31 23:03:24 -- pascal   ;;;;


;;(define-key  lse-mode-map "_"  'self-insert-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)
                                        ?← 'decompose-region) nil)))
         ("\\(\\^\\)" (1 (progn (compose-region (match-beginning 1) (match-end 1)
                                        ?↑ 'decompose-region) nil)))
         ;; comments:
         ("\\(^[0-9]+\\|; *\\)\\(\\*.*\\)"
          (2 font-lock-comment-face))
         ;; 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"
                "TEM" "ATT" "DIS" "ETL" "OUL" "OUX" "CCA" "CNB" "CNB"
                "DAT" "EQC" "EQN" "EQN" "GRL" "GRL" "LGR" "POS" "PTR"
                "PTR" "SCH" "SCH" "SKP" "SKP" ))
             (lse-types
              '("CHAINE" "TABLEAU" ))
             )
         (list
          ;;
          ;; Keywords except those fontified elsewhere.
          (concat "\\<\\(" (regexp-opt lse-keywords) "\\)\\>")
          ;;
          ;; Builtins.
          (cons (concat "\\<\\(" (regexp-opt lse-builtins) "\\)\\>")
                'font-lock-builtin-face)
          ;;
          ;; Type names.
          (cons (concat "\\<\\(" (regexp-opt lse-types) "\\)\\>")
                'font-lock-type-face)
          ))   
       '(
         ;; fonction
         ("\\(&[A-Z][A-Z0-9]\\{0,4\\}\\)\\>"
