diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-08-07 23:43:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-08-07 23:43:51 +0000 |
| commit | cef7e1da5f8702706675c074cd3816249f1bfc3a (patch) | |
| tree | 714c40a62858965e52fcbd0735549bc03d778fb5 /lisp/midnight.el | |
| parent | 08e77a49f7d87b2aa52c8226f11e7f7650e40c49 (diff) | |
| download | emacs-cef7e1da5f8702706675c074cd3816249f1bfc3a.tar.gz | |
(midnight-delay-set): Use run-hooks directly.
(midnight-timer-function): Function deleted.
Diffstat (limited to 'lisp/midnight.el')
| -rw-r--r-- | lisp/midnight.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/midnight.el b/lisp/midnight.el index 062d3fae09f..48e4c203c8f 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el @@ -215,11 +215,7 @@ to its second argument." (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. |