- (if (fboundp 'find)
- (find el ls :test test :key (or key 'eql))
- (dolist (rr ls)
- (when (funcall test el (if key (funcall key rr) rr))
- (return rr)))))
-
-(defun assoc-default (el alist test default)
- "Find object EL in a pseudo-alist ALIST.
-ALIST is a list of conses or objects. EL is compared (using TEST) with
-CAR (or the object itself, if it is not a cons) of elements of ALIST.
-When TEST returns non-nil, CDR (or DEFAULT, if the object is not a cons)
-of the object is returned.
-This is a non-consing analogue of
- (cdr (assoc el (mapcar (lambda (el) (if (consp el) el (cons el default)))
- alist)
- :test test))
-The calling sequence is: (ASSOC-DEFAULT EL ALIST TEST DEFAULT)"
- (dolist (rr alist)
- (when (funcall test el (if (consp rr) (car rr) rr))
- (return (if (consp rr) (cdr rr) default)))))
-
-(defun clean-buffer-list-delay (bn)
- "Return the delay, in seconds, before this buffer name is auto-killed.
+ (dolist (rr ls)
+ (when (funcall test (if key (funcall key rr) rr) el)
+ (return rr))))
+
+(defun clean-buffer-list-delay (name)
+ "Return the delay, in seconds, before killing a buffer named NAME.