Re: From menu button, how run more than one command?

[Kevin Rodgers <ihs_4664@yahoo.com>]

Mathias Dahl wrote:
 > Luckily for you I struggled too with menus last week. Would something
 > like this work for you?
 >
 > (defvar my-menu (make-sparse-keymap))
 >
 > (define-key my-menu [rmx1]
 >    `(menu-item "Find file on c:/"
 >                ,(lambda ()
 >                   (interactive)
 >                   (abc "c:/"))))
 >
 > (define-key my-menu [rmx2]
 >    `(menu-item "Find file on h:/"
 >                ,(lambda ()
 >                   (interactive)
 >                   (abc "h:/"))))
 >
 > (defun abc (path)
 >    (cd path)
 >    (call-interactively 'find-file))
 >
 > ;; Test it
 >
 > (popup-menu my-menu)

(lambda ...) is a self-evaluating form, so the backquote/comma syntax is
completely extraneous and can be replaced with a simple quote:
'(menu-item ...)

-- 
Kevin Rodgers