Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
escape `*' in regexps.
(midnight-find): Reverse order of arguments in the funcall of
TEST.
This commit is contained in:
Gerd Moellmann 2000-07-27 15:42:09 +00:00
parent f7e1a28d00
commit b3275b4747
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/midnight.el
View file

@ -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)