From b7a903441d2e1d0cdee7476c34bb8ab711875bb4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 30 Nov 2000 06:49:03 +0000 Subject: [PATCH] (third...tenth): Really undo change of 2000-08-05. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/cl.el | 32 ++++++++++++++++---------------- 2 files changed, 20 insertions(+), 16 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b82addf684..c7d8a49ad6f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-30 Stefan Monnier + + * emacs-lisp/cl.el (third...tenth): Really undo change of 2000-08-05. + 2000-11-29 Gerd Moellmann * help.el (describe-function-1): Regexp-quote function name diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 7be8a0561a2..0e8897db2f4 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -334,36 +334,36 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp (defalias 'endp 'null) (defun third (x) - "Return the third element of the list LIST." - `(car (cdr (cdr ,x)))) + "Return the third element of the list X." + (car (cdr (cdr x)))) (defun fourth (x) - "Return the fourth element of the list LIST." - `(nth 3 ,x)) + "Return the fourth element of the list X." + (nth 3 x)) (defun fifth (x) - "Return the fifth element of the list LIST." - `(nth 4 ,x)) + "Return the fifth element of the list X." + (nth 4 x)) (defun sixth (x) - "Return the sixth element of the list LIST." - `(nth 5 ,x)) + "Return the sixth element of the list X." + (nth 5 x)) (defun seventh (x) - "Return the seventh element of the list LIST." - `(nth 6 ,x)) + "Return the seventh element of the list X." + (nth 6 x)) (defun eighth (x) - "Return the eighth element of the list LIST." - `(nth 7 ,x)) + "Return the eighth element of the list X." + (nth 7 x)) (defun ninth (x) - "Return the ninth element of the list LIST." - `(nth 8 ,x)) + "Return the ninth element of the list X." + (nth 8 x)) (defun tenth (x) - "Return the tenth element of the list LIST." - `(nth 9 ,x)) + "Return the tenth element of the list X." + (nth 9 x)) (defun caaar (x) "Return the `car' of the `car' of the `car' of X." -- 2.39.5