Commit c8b868b1 authored by Eli Zaretskii's avatar Eli Zaretskii

Don't start the 'midnight' timer twice

* lisp/midnight.el (midnight-mode): Avoid starting the midnight
timer twice when activating the mode the first time.  (Bug#23123)
parent 278c8a7e
......@@ -53,8 +53,12 @@ the time when it is run.")
"Non-nil means run `midnight-hook' at midnight."
:global t
:initialize #'custom-initialize-default
(if midnight-mode (timer-activate midnight-timer)
(cancel-timer midnight-timer)))
;; Disable first, since the ':initialize' function above already
;; starts the timer when the mode is turned on for the first time,
;; via setting 'midnight-delay', which calls 'midnight-delay-set',
;; which starts the timer.
(when (timerp midnight-timer) (cancel-timer midnight-timer))
(if midnight-mode (timer-activate midnight-timer)))
;;; time conversion
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment