* lisp/midnight.el (clean-buffer-list-kill-never-buffer-names): Remove

[bpt/emacs.git] / lisp / midnight.el

diff --git a/lisp/midnight.el b/lisp/midnight.el
index c6d17a7..9a6b162 100644 (file)
--- a/lisp/midnight.el
+++ b/lisp/midnight.el
@@ -1,10 +1,9 @@
 ;;; midnight.el --- run something every midnight, e.g., kill old buffers
 
-;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 2001-2011 Free Software Foundation, Inc.
 
-;; Author: Sam Steingold <sds@usa.net>
-;; Maintainer: Sam Steingold <sds@usa.net>
+;; Author: Sam Steingold <sds@gnu.org>
+;; Maintainer: Sam Steingold <sds@gnu.org>
 ;; Created: 1998-05-18
 ;; Keywords: utilities
 
@@ -53,7 +52,7 @@ 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.
+  "Non-nil means run `midnight-hook' at midnight.
 Setting this variable outside customize has no effect;
 call `cancel-timer' or `timer-activate' on `midnight-timer' instead."
   :type 'boolean
@@ -81,7 +80,7 @@ call `cancel-timer' or `timer-activate' on `midnight-timer' instead."
 ;;; clean-buffer-list stuff
 
 (defcustom clean-buffer-list-delay-general 3
-  "*The number of days before any buffer becomes eligible for autokilling.
+  "The number of days before any buffer becomes eligible for autokilling.
 The autokilling is done by `clean-buffer-list' when is it in `midnight-hook'.
 Currently displayed and/or modified (unsaved) buffers, as well as buffers
 matching `clean-buffer-list-kill-never-buffer-names' and
@@ -90,7 +89,7 @@ matching `clean-buffer-list-kill-never-buffer-names' and
   :group 'midnight)
 
 (defcustom clean-buffer-list-delay-special 3600
-  "*The number of seconds before some buffers become eligible for autokilling.
+  "The number of seconds before some buffers become eligible for autokilling.
 Buffers matched by `clean-buffer-list-kill-regexps' and
 `clean-buffer-list-kill-buffer-names' are killed if they were last
 displayed more than this many seconds ago."
@@ -98,7 +97,7 @@ displayed more than this many seconds ago."
   :group 'midnight)
 
 (defcustom clean-buffer-list-kill-regexps nil
-  "*List of regexps saying which buffers will be killed at midnight.
+  "List of regexps saying which buffers will be killed at midnight.
 If buffer name matches a regexp in the list and the buffer was not displayed
 in the last `clean-buffer-list-delay-special' seconds, it is killed by
 `clean-buffer-list' when is it in `midnight-hook'.
@@ -113,7 +112,7 @@ See also `clean-buffer-list-kill-buffer-names',
 (defcustom clean-buffer-list-kill-buffer-names
     '("*Help*" "*Apropos*" "*Man " "*Buffer List*" "*Compile-Log*" "*info*"
       "*vc*" "*vc-diff*" "*diff*")
-  "*List of strings saying which buffers will be killed at midnight.
+  "List of strings saying which buffers will be killed at midnight.
 Buffers with names in this list, which were not displayed in the last
 `clean-buffer-list-delay-special' seconds, are killed by `clean-buffer-list'
 when is it in `midnight-hook'.
@@ -126,8 +125,8 @@ See also `clean-buffer-list-kill-regexps',
   :group 'midnight)
 
 (defcustom clean-buffer-list-kill-never-buffer-names
-    '("*scratch*" "*Messages*" "*server*")
-  "*List of buffer names which will never be killed by `clean-buffer-list'.
+    '("*scratch*" "*Messages*")
+  "List of buffer names which will never be killed by `clean-buffer-list'.
 See also `clean-buffer-list-kill-never-regexps'.
 Note that this does override `clean-buffer-list-kill-regexps' and
 `clean-buffer-list-kill-buffer-names' so a buffer matching any of these
@@ -136,7 +135,7 @@ two lists will NOT be killed if it is also present in this list."
   :group 'midnight)
 
 (defcustom clean-buffer-list-kill-never-regexps '("^ \\*Minibuf-.*\\*$")
-  "*List of regexp saying which buffers will never be killed at midnight.
+  "List of regexp saying which buffers will never be killed at midnight.
 See also `clean-buffer-list-kill-never-buffer-names'.
 Killing is done by `clean-buffer-list'.
 Note that this does override `clean-buffer-list-kill-regexps' and
@@ -205,7 +204,8 @@ The default value is `clean-buffer-list'."
 
 (defun midnight-next ()
   "Return the number of seconds till the next midnight."
-  (multiple-value-bind (sec min hrs) (decode-time)
+  (multiple-value-bind (sec min hrs)
+      (values-list (decode-time))
     (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec)))
 
 ;;;###autoload
@@ -222,7 +222,7 @@ to its second argument TM."
                      midnight-period 'run-hooks 'midnight-hook)))
 
 (defcustom midnight-delay 3600
-  "*The number of seconds after the midnight when the `midnight-timer' is run.
+  "The number of seconds after the midnight when the `midnight-timer' is run.
 You should set this variable before loading midnight.el, or
 set it by calling `midnight-delay-set', or use `custom'.
 If you wish, you can use a string instead, it will be passed as the
@@ -233,5 +233,4 @@ first argument to `run-at-time'."
 
 (provide 'midnight)
 
-;; arch-tag: a5979be9-2890-46a3-ba84-791f0a4a6e80
 ;;; midnight.el ends here