From cef7e1da5f8702706675c074cd3816249f1bfc3a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Aug 1998 23:43:51 +0000 Subject: [PATCH] (midnight-delay-set): Use run-hooks directly. (midnight-timer-function): Function deleted. --- lisp/midnight.el | 6 +----- 1 file changed, 1 insertion(+), 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. -- 2.39.2