From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 27 Jul 2000 15:42:09 +0000 (+0000)
Subject: (clean-buffer-list-kill-never-regexps): Correctly
X-Git-Tag: emacs-pretest-21.0.90~2563
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3275b47475e2933ace754706dc2020a41a3aca1;p=emacs.git

(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 2995dbd8ed6..7183a3dad40 100644
--- 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)