Mercurial > emacs
diff lisp/midnight.el @ 30509:423583fa92f3
(clean-buffer-list-kill-never-regexps): Correctly
escape `*' in regexps.
(midnight-find): Reverse order of arguments in the funcall of
TEST.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 27 Jul 2000 15:42:09 +0000 |
| parents | b603c68fff56 |
| children | 67b464da13ec |
line wrap: on
line diff
--- 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)