changeset 35090:b876bd6bde9e

butlast, nbutlast.

--- a/etc/NEWS	Fri Jan 05 16:52:53 2001 +0000
+++ b/etc/NEWS	Fri Jan 05 16:56:21 2001 +0000
@@ -2106,6 +2106,10 @@
 (Display-related features are described in a page of their own below.)
 
 +++
+** Functions `butlast' and `nbutlast' for removing trailing elements
+from a list are now available without requiring the CL package.
+
++++
 ** The new user-option `even-window-heights' can be set to nil
 to prevent `display-buffer' from evening out window heights.
 

--- a/lispref/lists.texi	Fri Jan 05 16:52:53 2001 +0000
+++ b/lispref/lists.texi	Fri Jan 05 16:56:21 2001 +0000
@@ -422,6 +422,20 @@
 or @code{(nthcdr 2 @var{cons-cell})}.
 @end defun
 
+@defun butlast x &optional n
+This function returns the list @var{x} with the last element,
+or the last @var{n} elements, removed.  If @var{n} is greater
+than zero it makes a copy of the list so as not to damage the
+original list.  In general, @code{(append (butlast @var{x} @var{n})
+(last @var{x} @var{n}))} will return a list equal to @var{x}.
+@end defun
+
+@defun nbutlast x &optional n
+This is a version of @code{butlast} that works by destructively
+modifying the @code{cdr} of the appropriate element, rather than
+making a copy of the list.
+@end defun
+
 @node Building Lists
 @comment  node-name,  next,  previous,  up
 @section Building Cons Cells and Lists