Make the revert command in timer-list-mode work

* lisp/emacs-lisp/timer-list.el (timer-list): Make the revert
command work.

diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index eba152325c2b89d5f95c328c2fa8092b4a37d0be..9b13e52dd7cdb7ab7bb7f902374e4ec926a1131f 100644 (file)
--- a/lisp/emacs-lisp/timer-list.el
+++ b/lisp/emacs-lisp/timer-list.el
@@ -25,7 +25,7 @@
 ;;; Code:
 
 ;;;###autoload
-(defun timer-list ()
+(defun timer-list (&optional _ignore-auto _nonconfirm)
   "List all timers in a buffer."
   (interactive)
   (pop-to-buffer-same-window (get-buffer-create "*timer-list*"))
@@ -90,6 +90,7 @@
   "Mode for listing and controlling timers."
   (setq truncate-lines t)
   (buffer-disable-undo)
+  (setq-local revert-buffer-function 'timer-list)
   (setq buffer-read-only t)
   (setq header-line-format
         (format "%4s %10s %8s %s"