Mercurial > emacs
changeset 22938:a45f2afb8ed9
(midnight-delay-set): Use run-hooks directly.
(midnight-timer-function): Function deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Aug 1998 23:43:51 +0000 |
| parents | 584b28b8de70 |
| children | 572895549f80 |
| files | lisp/midnight.el |
| diffstat | 1 files changed, 1 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/midnight.el Fri Aug 07 23:25:43 1998 +0000 +++ b/lisp/midnight.el Fri Aug 07 23:43:51 1998 +0000 @@ -215,11 +215,7 @@ (when (timerp midnight-timer) (cancel-timer midnight-timer)) (setq midnight-timer (run-at-time (if (numberp tm) (+ (midnight-next) tm) tm) - midnight-period 'midnight-timer-function))) - -(defun midnight-timer-function () - "This is the function run by the `midnight-mode' timer once each day." - (run-hooks 'midnight-hook)) + midnight-period 'run-hooks 'midnight-hook))) (defcustom midnight-delay 3600 "*The number of seconds after the midnight when the `midnight-timer' is run.