diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-08-18 11:02:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-08-18 11:02:18 +0000 |
| commit | 82f08756d23b6edb8a2aedcbc479b133a27070b8 (patch) | |
| tree | c7a239d610c81c8e456dc441ea966e0d4f00248b | |
| parent | b7de4d62b3c44977619ce039719d41fdac8a0bd0 (diff) | |
| download | emacs-82f08756d23b6edb8a2aedcbc479b133a27070b8.tar.gz | |
(midnight-hook): initialize to a list.
| -rw-r--r-- | lisp/midnight.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/midnight.el b/lisp/midnight.el index 8225c045d13..0613af908a7 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el @@ -173,8 +173,8 @@ The relevant variables are `clean-buffer-list-delay-general', `clean-buffer-list-kill-never-regexps'. While processing buffers, this procedure displays messages containing the current date/time, buffer name, how many seconds ago it was -displayed (can be NIL if the buffer was never displayed) and its -lifetime, i.e., its `age' when it will be purged." +displayed (can be nil if the buffer was never displayed) and its +lifetime, i.e., its \"age\" when it will be purged." (interactive) (let ((tm (midnight-float-time)) bts (ts (format-time-string "%Y-%m-%d %T")) bn (bufs (buffer-list)) buf delay cbld) @@ -196,7 +196,7 @@ lifetime, i.e., its `age' when it will be purged." (defvar midnight-period (* 24 60 60) "The number of seconds in a day--the delta for `midnight-timer'.") -(defcustom midnight-hook 'clean-buffer-list +(defcustom midnight-hook '(clean-buffer-list) "The hook run `midnight-delay' seconds after midnight every day. The default value is `clean-buffer-list'." :type 'hook |