1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 44199a50754..54bee8a809f 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -752,9 +752,9 @@ Elements of ALIST that are not conses are ignored."
  alist)
 (defun alist-get (key alist &optional default remove testfn)
-  "Return the value associated with KEY in ALIST.
+  "Find the first element of ALIST whose `car' equals KEY and return its `cdr'.
 If KEY is not found in ALIST, return DEFAULT.
-Use TESTFN to lookup in the alist if non-nil.  Otherwise, use `assq'.
+Equality with KEY is tested by TESTFN, defaulting to `eq'.
 This is a generalized variable suitable for use with `setf'.
 When using it to set a value, optional argument REMOVE non-nil

diff --git a/lisp/subr.el b/lisp/subr.el index 44199a50754..54bee8a809f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el
@@ -752,9 +752,9 @@ Elements of ALIST that are not conses are ignored."
752	alist)	752	alist)
753		753
754	(defun alist-get (key alist &optional default remove testfn)	754	(defun alist-get (key alist &optional default remove testfn)
755	"Return the value associated with KEY in ALIST.	755	"Find the first element of ALIST whose `car' equals KEY and return its `cdr'.
756	If KEY is not found in ALIST, return DEFAULT.	756	If KEY is not found in ALIST, return DEFAULT.
757	Use TESTFN to lookup in the alist if non-nil. Otherwise, use `assq'.	757	Equality with KEY is tested by TESTFN, defaulting to `eq'.
758		758
759	This is a generalized variable suitable for use with `setf'.	759	This is a generalized variable suitable for use with `setf'.
760	When using it to set a value, optional argument REMOVE non-nil	760	When using it to set a value, optional argument REMOVE non-nil