Re: elisp macros problem

[Lowell Kirsh <lkirsh@cs.ubc.ca>]

Why does this not work:

(defmacro my-add-hooks (hooks &rest body)
   `(dolist (hook ,hooks)
       (my-add-hook hook ,@body)))

??

Lowell

Lowell Kirsh wrote:
> I am defining an emacs lisp macro to do:
> 
> (my-add-hook 'lisp
>    ...)
> 
> which should give:
> 
> (add-hook 'lisp-mode-hook
>   (lambda () ...))
> 
> I have:
> 
> (defmacro my-add-hook (hook &rest body)
>   (let ((tempvar (make-symbol "cat")))
>     `(flet ((,tempvar (sym str)
>                       (make-symbol (concat (symbol-name sym) str))))
>        (add-hook (cat ,hook "-mode-hook") (lambda () ,@body)))))
> 
> Does anyone know what's wrong with this and why it doesn't work?
> 
> Lowell