diff options
| author | Richard M. Stallman | 2005-04-23 16:41:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-04-23 16:41:33 +0000 |
| commit | ed4761a92723c785dc7873409fd769dcbc9c1d72 (patch) | |
| tree | fb58081dbb3d41d6c930bb353f58406c8447e420 | |
| parent | 7735d2e2f4686df877995089bd23f5fed3ab8bb2 (diff) | |
| download | emacs-ed4761a92723c785dc7873409fd769dcbc9c1d72.tar.gz emacs-ed4761a92723c785dc7873409fd769dcbc9c1d72.zip | |
(midnight-timer): Move defvar up.
| -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 @@ | |||
| 48 | :group 'calendar | 48 | :group 'calendar |
| 49 | :version "20.3") | 49 | :version "20.3") |
| 50 | 50 | ||
| 51 | (defvar midnight-timer nil | ||
| 52 | "Timer running the `midnight-hook' `midnight-delay' seconds after midnight. | ||
| 53 | Use `cancel-timer' to stop it and `midnight-delay-set' to change | ||
| 54 | the time when it is run.") | ||
| 55 | |||
| 51 | (defcustom midnight-mode nil | 56 | (defcustom midnight-mode nil |
| 52 | "*Non-nil means run `midnight-hook' at midnight. | 57 | "*Non-nil means run `midnight-hook' at midnight. |
| 53 | Setting this variable outside customize has no effect; | 58 | Setting this variable outside customize has no effect; |
| @@ -204,11 +209,6 @@ The default value is `clean-buffer-list'." | |||
| 204 | (multiple-value-bind (sec min hrs) (decode-time) | 209 | (multiple-value-bind (sec min hrs) (decode-time) |
| 205 | (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec))) | 210 | (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec))) |
| 206 | 211 | ||
| 207 | (defvar midnight-timer nil | ||
| 208 | "Timer running the `midnight-hook' `midnight-delay' seconds after midnight. | ||
| 209 | Use `cancel-timer' to stop it and `midnight-delay-set' to change | ||
| 210 | the time when it is run.") | ||
| 211 | |||
| 212 | ;;;###autoload | 212 | ;;;###autoload |
| 213 | (defun midnight-delay-set (symb tm) | 213 | (defun midnight-delay-set (symb tm) |
| 214 | "Modify `midnight-timer' according to `midnight-delay'. | 214 | "Modify `midnight-timer' according to `midnight-delay'. |