(midnight-delay-set): Use run-hooks directly.

(midnight-timer-function): Function deleted.

diff --git a/lisp/midnight.el b/lisp/midnight.el
index 062d3fae09fc512d9ff7ad798076a421b480199e..48e4c203c8f8dc47f7c41ff6d5eda57045d7f9f6 100644 (file)
--- 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.