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

      (lse-free-markers jumps))))


;; (defparameter lse-assign-image  
;;   (find-image 
;;    (list
;;     (list :type 'xbm 
;;           :width 8
;;           :height 12
;;           :ascent 91

;;           :foreground nil
;;           :data
;;           (loop
;;              with lines = (mapcar
;;                            (lambda (line)
;;                              (loop
;;                                 with vec = (make-bool-vector (length line) nil)
;;                                 for bit in (mapcar
;;                                             (lambda (char) (STRING/= char "."))
;;                                             (split-string line ""))
;;                                 for i from 0 below (length vec)
;;                                 do (setf (aref vec i) bit)
