diff options
| author | Lars Ingebrigtsen | 2016-03-01 16:06:24 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-03-01 16:06:42 +1100 |
| commit | 8c1503e41bb65e7d75d006c4650f5114fdc6eed2 (patch) | |
| tree | 9e4ad1124cd4f27fb3e3b4e0af9e521bd2d2f4f6 | |
| parent | 4694f2f90679b21797a11f579f9cb9482eb36bdf (diff) | |
| download | emacs-8c1503e41bb65e7d75d006c4650f5114fdc6eed2.tar.gz emacs-8c1503e41bb65e7d75d006c4650f5114fdc6eed2.zip | |
Make the revert command in timer-list-mode work
* lisp/emacs-lisp/timer-list.el (timer-list): Make the revert
command work.
| -rw-r--r-- | lisp/emacs-lisp/timer-list.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el index eba152325c2..9b13e52dd7c 100644 --- a/lisp/emacs-lisp/timer-list.el +++ b/lisp/emacs-lisp/timer-list.el | |||
| @@ -25,7 +25,7 @@ | |||
| 25 | ;;; Code: | 25 | ;;; Code: |
| 26 | 26 | ||
| 27 | ;;;###autoload | 27 | ;;;###autoload |
| 28 | (defun timer-list () | 28 | (defun timer-list (&optional _ignore-auto _nonconfirm) |
| 29 | "List all timers in a buffer." | 29 | "List all timers in a buffer." |
| 30 | (interactive) | 30 | (interactive) |
| 31 | (pop-to-buffer-same-window (get-buffer-create "*timer-list*")) | 31 | (pop-to-buffer-same-window (get-buffer-create "*timer-list*")) |
| @@ -90,6 +90,7 @@ | |||
| 90 | "Mode for listing and controlling timers." | 90 | "Mode for listing and controlling timers." |
| 91 | (setq truncate-lines t) | 91 | (setq truncate-lines t) |
| 92 | (buffer-disable-undo) | 92 | (buffer-disable-undo) |
| 93 | (setq-local revert-buffer-function 'timer-list) | ||
| 93 | (setq buffer-read-only t) | 94 | (setq buffer-read-only t) |
| 94 | (setq header-line-format | 95 | (setq header-line-format |
| 95 | (format "%4s %10s %8s %s" | 96 | (format "%4s %10s %8s %s" |