[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: elisp macros problem

From: Lowell Kirsh
Subject: Re: elisp macros problem
Date: Sat, 24 Jul 2004 14:49:50 -0700
User-agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.6) Gecko/20040322

Thanks all. I now see how pointless cat was, but the reason it was there in the first place was because i had made it a separate function (for testing).


David Kastrup wrote:
Pascal Bourguignon <address@hidden> writes:

Barry Margolin <address@hidden> writes:

In article <address@hidden>,
Lowell Kirsh <address@hidden> wrote:

(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?

You need to use ,tempvar in place of cat in the last line.

Then, (not (eq (make-symbol "toto")(make-symbol "toto"))), even on
emacs lisp.  You should use intern!

For accessing xxx-mode-hook, yes.  But for the "cat" thingy, ,tempvar
would be ok, even though pretty pointless: one does not really need to
bind a function here.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]