# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 964712529 0
# Node ID 423583fa92f362f230a7d9dd74c6f28de1ea888f
# Parent  976820f4a1bb12b7a1a197a7e5d692c6d81f6f07
(clean-buffer-list-kill-never-regexps): Correctly
escape `*' in regexps.
(midnight-find): Reverse order of arguments in the funcall of
TEST.

diff -r 976820f4a1bb -r 423583fa92f3 lisp/midnight.el
--- a/lisp/midnight.el	Thu Jul 27 15:41:49 2000 +0000
+++ b/lisp/midnight.el	Thu Jul 27 15:42:09 2000 +0000
@@ -132,7 +132,7 @@
   :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'.
@@ -145,7 +145,7 @@
 (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)