diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-04-23 16:41:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-04-23 16:41:33 +0000 |
| commit | ed4761a92723c785dc7873409fd769dcbc9c1d72 (patch) | |
| tree | fb58081dbb3d41d6c930bb353f58406c8447e420 /lisp/midnight.el | |
| parent | 7735d2e2f4686df877995089bd23f5fed3ab8bb2 (diff) | |
| download | emacs-ed4761a92723c785dc7873409fd769dcbc9c1d72.tar.gz | |
(midnight-timer): Move defvar up.
Diffstat (limited to 'lisp/midnight.el')
| -rw-r--r-- | lisp/midnight.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/midnight.el b/lisp/midnight.el index a81ce37856a..83b21dda7e4 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el @@ -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 @@ The default value is `clean-buffer-list'." (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'. |