# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 902533431 0
# Node ID a45f2afb8ed988f4c0ece6366e6c6a490655d390
# Parent  584b28b8de7076bfd0a233cc756f5f92c246fdcd
(midnight-delay-set): Use run-hooks directly.
(midnight-timer-function): Function deleted.

diff -r 584b28b8de70 -r a45f2afb8ed9 lisp/midnight.el
--- 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.