From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Aug 1998 11:02:18 +0000 (+0000)
Subject: (midnight-hook): initialize to a list.
X-Git-Tag: emacs-20.3~20
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82f08756d23b6edb8a2aedcbc479b133a27070b8;p=emacs.git

(midnight-hook): initialize to a list.
---

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