mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

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

Browse Source 
(midnight-timer-function): Function deleted.
This commit is contained in:
Richard M. Stallman 1998-08-07 23:43:51 +00:00
parent 08e77a49f7
commit cef7e1da5f
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/midnight.el
View File

@ -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.