Emacs スレ で紹介されていたコードを、ここにコピペ。

(defun describe-timer ()
  (interactive)
  (let ((tl timer-list)
        timer)
    (pop-to-buffer (get-buffer-create "*timer*"))
    (erase-buffer)
    (insert
     "TIME           FUNCTION\n"
     "-------------- --------------------------\n")
    (while tl
      (setq timer (car tl))
      (insert
       (concat
        (format-time-string "%m/%d %T"
                            (list (aref timer 1)(aref timer 2)(aref timer 3)))
        " "
        (symbol-name (aref timer 5))
        "\n"))
      (setq tl (cdr tl)))))

こんな出力が得られる。

TIME           FUNCTION
-------------- --------------------------
12/05 16:05:00 display-time-event-handler
12/05 16:06:32 mew-passwd-timer
12/05 16:07:43 twittering-timer-action