mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(midnight-hook): initialize to a list.

Browse source
This commit is contained in:
Richard M. Stallman 1998-08-18 11:02:18 +00:00
parent b7de4d62b3
commit 82f08756d2
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/midnight.el
View file

@ -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