diff options
| author | Richard M. Stallman | 1998-08-07 23:43:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-08-07 23:43:51 +0000 |
| commit | cef7e1da5f8702706675c074cd3816249f1bfc3a (patch) | |
| tree | 714c40a62858965e52fcbd0735549bc03d778fb5 | |
| parent | 08e77a49f7d87b2aa52c8226f11e7f7650e40c49 (diff) | |
| download | emacs-cef7e1da5f8702706675c074cd3816249f1bfc3a.tar.gz emacs-cef7e1da5f8702706675c074cd3816249f1bfc3a.zip | |
(midnight-delay-set): Use run-hooks directly.
(midnight-timer-function): Function deleted.
| -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." | |||
| 215 | (when (timerp midnight-timer) (cancel-timer midnight-timer)) | 215 | (when (timerp midnight-timer) (cancel-timer midnight-timer)) |
| 216 | (setq midnight-timer | 216 | (setq midnight-timer |
| 217 | (run-at-time (if (numberp tm) (+ (midnight-next) tm) tm) | 217 | (run-at-time (if (numberp tm) (+ (midnight-next) tm) tm) |
| 218 | midnight-period 'midnight-timer-function))) | 218 | midnight-period 'run-hooks 'midnight-hook))) |
| 219 | |||
| 220 | (defun midnight-timer-function () | ||
| 221 | "This is the function run by the `midnight-mode' timer once each day." | ||
| 222 | (run-hooks 'midnight-hook)) | ||
| 223 | 219 | ||
| 224 | (defcustom midnight-delay 3600 | 220 | (defcustom midnight-delay 3600 |
| 225 | "*The number of seconds after the midnight when the `midnight-timer' is run. | 221 | "*The number of seconds after the midnight when the `midnight-timer' is run. |