(third...tenth): Really undo change of 2000-08-05.

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  <monnier@cs.yale.edu>
+
+        * emacs-lisp/cl.el (third...tenth): Really undo change of 2000-08-05.
+
 2000-11-29  Gerd Moellmann  <gerd@gnu.org>
 
         * 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."