# HG changeset patch # User Richard M. Stallman # Date 1114274493 0 # Node ID cf0109fd61582ca8a5fce19cbc1b66aee90e3075 # Parent 589fa38a51d49dcf049d01fa863a6032bae84c75 (midnight-timer): Move defvar up. diff -r 589fa38a51d4 -r cf0109fd6158 lisp/midnight.el --- a/lisp/midnight.el Sat Apr 23 16:40:55 2005 +0000 +++ b/lisp/midnight.el Sat Apr 23 16:41:33 2005 +0000 @@ -48,6 +48,11 @@ :group 'calendar :version "20.3") +(defvar midnight-timer nil + "Timer running the `midnight-hook' `midnight-delay' seconds after midnight. +Use `cancel-timer' to stop it and `midnight-delay-set' to change +the time when it is run.") + (defcustom midnight-mode nil "*Non-nil means run `midnight-hook' at midnight. Setting this variable outside customize has no effect; @@ -204,11 +209,6 @@ (multiple-value-bind (sec min hrs) (decode-time) (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec))) -(defvar midnight-timer nil - "Timer running the `midnight-hook' `midnight-delay' seconds after midnight. -Use `cancel-timer' to stop it and `midnight-delay-set' to change -the time when it is run.") - ;;;###autoload (defun midnight-delay-set (symb tm) "Modify `midnight-timer' according to `midnight-delay'.