-;;; midnight.el --- run something every midnight, e.g., kill old buffers.
+;;; midnight.el --- run something every midnight, e.g., kill old buffers
-;;; Copyright (C) 1998 Free Software Foundation, Inc.
+;;; Copyright (C) 1998, 2004 Free Software Foundation, Inc.
-;;; Author: Sam Steingold <sds@usa.net>
-;;; Maintainer: Sam Steingold <sds@usa.net>
-;;; Created: 1998-05-18
-;;; Keywords: utilities
+;; Author: Sam Steingold <sds@usa.net>
+;; Maintainer: Sam Steingold <sds@usa.net>
+;; Created: 1998-05-18
+;; Keywords: utilities
;; This file is part of GNU Emacs.
:group 'midnight)
-(defcustom clean-buffer-list-kill-never-regexps '("^ \*Minibuf-.*\*$")
+(defcustom clean-buffer-list-kill-never-regexps '("^ \\*Minibuf-.*\\*$")
"*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'.
(defun midnight-find (el ls test &optional key)
"A stopgap solution to the absence of `find' in ELisp."
(dolist (rr ls)
- (when (funcall test el (if key (funcall key rr) rr))
+ (when (funcall test (if key (funcall key rr) rr) el)
(return rr))))
(defun clean-buffer-list-delay (name)
Sets the first argument SYMB (which must be symbol `midnight-delay')
to its second argument TM."
(assert (eq symb 'midnight-delay) t
- "Illegal argument to `midnight-delay-set': `%s'" symb)
+ "Illegal argument to `midnight-delay-set': `%s'")
(set symb tm)
(when (timerp midnight-timer) (cancel-timer midnight-timer))
(setq midnight-timer
(provide 'midnight)
+;;; arch-tag: a5979be9-2890-46a3-ba84-791f0a4a6e80
;;; midnight.el ends here