Mercurial > emacs
changeset 103107:15fc92c2fca6
* subr.el (assoc-default): Doc fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 29 Apr 2009 04:46:15 +0000 |
| parents | feb396742215 |
| children | e61fae00d13e |
| files | lisp/ChangeLog lisp/subr.el |
| diffstat | 2 files changed, 11 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Apr 29 03:48:58 2009 +0000 +++ b/lisp/ChangeLog Wed Apr 29 04:46:15 2009 +0000 @@ -1,3 +1,7 @@ +2009-04-29 Chong Yidong <cyd@stupidchicken.com> + + * subr.el (assoc-default): Doc fix. + 2009-04-29 Ulrich Mueller <ulm@gentoo.org> * files.el (hack-local-variables-prop-line)
--- a/lisp/subr.el Wed Apr 29 03:48:58 2009 +0000 +++ b/lisp/subr.el Wed Apr 29 04:46:15 2009 +0000 @@ -371,11 +371,13 @@ (defun assoc-default (key alist &optional test default) "Find object KEY in a pseudo-alist ALIST. -ALIST is a list of conses or objects. Each element (or the element's car, -if it is a cons) is compared with KEY by evaluating (TEST (car elt) KEY). -If that is non-nil, the element matches; -then `assoc-default' returns the element's cdr, if it is a cons, -or DEFAULT if the element is not a cons. +ALIST is a list of conses or objects. Each element + (or the element's car, if it is a cons) is compared with KEY by + calling TEST, with two arguments: (i) the element or its car, + and (ii) KEY. +If that is non-nil, the element matches; then `assoc-default' + returns the element's cdr, if it is a cons, or DEFAULT if the + element is not a cons. If no element matches, the value is nil. If TEST is omitted or nil, `equal' is used."