(clean-buffer-list-kill-never-regexps): Correctly

escape `*' in regexps.
(midnight-find): Reverse order of arguments in the funcall of
TEST.

diff --git a/lisp/midnight.el b/lisp/midnight.el
index 2995dbd8ed6d0b6527da101208ca6e34a6638477..7183a3dad409f2adb18fedead3ea975f7b835ad6 100644 (file)
--- a/lisp/midnight.el
+++ b/lisp/midnight.el
@@ -132,7 +132,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-.*\*$")
+(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 @@ two lists will NOT be killed if it also matches anything in this 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)