how to set button action

[Stefan Huchler]

Hi,

I am trying to get buttons working in a tabulated-list mode but when I
press enter on that link it does not execute the print.

also tried it without lambda and the funcions name. Is there a trick I
am missing?


(define-derived-mode test-foo-mode tabulated-list-mode "test-foo"
  (setq tabulated-list-format [("Series" 10 t)])
  (setq tabulated-list-entries '((nil [("test" . ('action (lambda (btn)
    (print "action"))))])))
  (tabulated-list-init-header)
  (tabulated-list-print)
  )

(defun test-foo ()
  (interactive)
  (let* ((name "*test-foo*")
         (buffer (or (get-buffer name)
                     (generate-new-buffer name))))
    (unless (eq buffer (current-buffer))
      (with-current-buffer buffer
        (unless (eq major-mode 'test-foo-mode)
          (condition-case e
              (progn
                (test-foo-mode)
                )
            (error
             (kill-buffer buffer)
             (signal (car e) (cdr e))))))
      (switch-to-buffer-other-window buffer))))