Mercurial > emacs
changeset 61768:cf0109fd6158
(midnight-timer): Move defvar up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Apr 2005 16:41:33 +0000 |
| parents | 589fa38a51d4 |
| children | ff6d0a7e180e |
| files | lisp/midnight.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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'.