From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 23 May 2005 00:05:40 +0000 (+0000)
Subject: (acons, pairlis): Add docstring.
X-Git-Tag: ttn-vms-21-2-B4~49
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=868904eb92e91c792ec6d14b7e0d7542f7988175;p=emacs.git

(acons, pairlis): Add docstring.
---

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 704d3f8dcd9..e7f736cfd72 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -565,8 +565,17 @@ Return a copy of TREE with all elements `eql' to OLD replaced by NEW.
 	       cl-tree (cons a d))))
 	(t cl-tree)))
 
-(defun acons (a b c) (cons (cons a b) c))
-(defun pairlis (a b &optional c) (nconc (mapcar* 'cons a b) c))
+(defun acons (key value alist)
+  "Add KEY and VALUE to ALIST.
+Return a new list with (cons KEY VALUE) as car and ALIST as cdr."
+  (cons (cons key value) alist))
+
+(defun pairlis (keys values &optional alist)
+  "Make an alist from KEYS and VALUES.
+Return a new alist composed by associating KEYS to corresponding VALUES;
+the process stops as soon as KEYS or VALUES run out.
+If ALIST is non-nil, the new pairs are prepended to it."
+  (nconc (mapcar* 'cons keys values) alist))
 
 
 ;;; Miscellaneous.