(last): New function.

diff --git a/lisp/subr.el b/lisp/subr.el
index a93cd3f8b526f04050668c28588297518bf8434a..513a63a2f211bfd5429784979b15b6c68f0c4226 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -78,6 +78,13 @@ BODY should be a list of lisp expressions."
 (defsubst cddr (x)
   "Return the cdr of the cdr of X."
   (cdr (cdr x)))
+
+(defun last (x)
+  "Return the last element of the list X.
+If X is nil, return nil."
+  (while (cdr x)
+    (setq x (cdr x)))
+  x)
 \f
 ;;;; Keymap support.