From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Aug 1998 23:43:51 +0000 (+0000)
Subject: (midnight-delay-set): Use run-hooks directly.
X-Git-Tag: emacs-20.3~141
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cef7e1da5f8702706675c074cd3816249f1bfc3a;p=emacs.git

(midnight-delay-set): Use run-hooks directly.
(midnight-timer-function): Function deleted.
---

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.