diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-07-27 15:42:09 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-07-27 15:42:09 +0000 |
| commit | b3275b47475e2933ace754706dc2020a41a3aca1 (patch) | |
| tree | 6a616f50e8744af443b5c206bf795100042bdbf7 /lisp/midnight.el | |
| parent | f7e1a28d002beee0e57eacab9a2244aac47fa6c9 (diff) | |
| download | emacs-b3275b47475e2933ace754706dc2020a41a3aca1.tar.gz | |
(clean-buffer-list-kill-never-regexps): Correctly
escape `*' in regexps.
(midnight-find): Reverse order of arguments in the funcall of
TEST.
Diffstat (limited to 'lisp/midnight.el')
| -rw-r--r-- | lisp/midnight.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |