[Top][All Lists]

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

Need help with macros

From: Cecil Westerhof
Subject: Need help with macros
Date: Wed, 06 Jan 2010 16:40:10 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.3 (gnu/linux)

I am trying to make some useful functionality for Gnus. I think that I
should use a macro for that. I made the following macro (the two message
statements are just for debugging):
    (defmacro gnus-group-jump-bind (key-binding group-to-jump-to)
      (message "#%s#%s#" key-binding      (type-of key-binding))
      (message "#%s#%s#" group-to-jump-to (type-of group-to-jump-to))
      (define-key gnus-group-mode-map key-binding
        (lambda ()
          (gnus-group-jump-to-group group-to-jump-to))))

When calling this with:
    (gnus-group-jump-bind "vjd" "nndraft:drafts")

In the message buffer it gives:

And the return value is:
    (lambda nil (interactive) (gnus-group-jump-to-group group-to-jump-to))

This is the first problem. Outside the macro group-to-jump-to is not
existing, I need the value of group-to-jump-to not the name itself. How
do I do this? I tried eval, but that did not work.

But of course I do not want to set the key bindings manually but data
driven. So I wrote the following function:
    (defun gnus-group-do-jump-bind ()
       (dolist (this-jump gnus-group-jump-list)
         (let ((this-group (second this-jump))
               (this-key   (concat "vj" (first this-jump))))
         (gnus-group-jump-bind this-key this-group))))

I defined the used value:
    (setq gnus-group-jump-list
           '("d" "nndraft:drafts")

And call the function:

This gives in the message buffer:
    Entering debugger...

And the debug output starts with:
    Debugger entered--Lisp error: (wrong-type-argument arrayp this-key)

I tried to work with symbol-value, but that did not work.

What do I need to do to get this working?

Cecil Westerhof
Senior Software Engineer

reply via email to

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