Xemacs : emacs-lisp-hook

[Thierry Leurent <thierry.leurent@wanadoo.be>]

Bonsoir,

J'ai ecrit quelques fonctions lisp permettant l'ajout d'un entete au buffer. J'ai my-insert-objc-header , my-insert-elisp-header et .....

J'ai ajoute un hook, aux modes concernes, qui lie la fonction adequate a F9. Cela fonctionne pour les mode C et objc C mais pas emacs-lisp ???

Voici mon code :

; EMACS-LISP-MODE
; Le Chargement

(setq auto-mode-alist
      (append '(("\\.emacs$"     . emacs-lisp-mode)
		("\\.el$"     . emacs-lisp-mode)
		("\\.elc$"     . emacs-lisp-mode)
		) auto-mode-alist))

; Le Hook

(add-hook 'emacs-lisp-hook '(lambda ()
			     
			     (local-set-key [f9] 'my-insert-elisp-header) ;  header de fichier

			     ))
Merci
Thierry