evaluar la expresión antes de que se ponga en lambda

Question

tengo el siguiente fragmento de código en mi .emacs:

(dolist (mode '(scheme emacs-lisp lisp clojure)) 
    (add-hook 
    (intern (concat (symbol-name mode) "-mode-hook")) 
    (lambda() 
    (progn 
     (run-programming-hook) 
     (message "%s" (concat (symbol-name mode) "-mode"))) 

Obviamente la variable mode es nulo cuando lambda llega a ejecutar. La pregunta es ¿cómo evalúo mode de tal manera que no entra en una lambda como una variable, sino más bien como un valor en esa variable? En otras palabras, quiero que el mensaje se imprima cuando se ejecuta el gancho.

Answer 1

Lo que se puede utilizar es backquote:

(dolist (mode '(scheme emacs-lisp lisp clojure)) 
    (add-hook 
    (intern (concat (symbol-name mode) "-mode-hook")) 
    `(lambda() 
     (run-programming-hook) 
     (message "%s" ,(concat (symbol-name mode) "-mode")))))