Re: lists.texi

[Luc Teirlinck]

The following patch to ring.el is equivalent to the one I sent
earlier, but probably slightly better:

===File ~/ring.el-diff-b====================================
*** ring.el     02 Sep 2003 07:41:57 -0500      1.18
--- ring.el     18 Jun 2005 18:53:24 -0500      
***************
*** 155,162 ****
        (aref vec (ring-index index hd ln (length vec))))))
  
  (defun ring-elements (ring)
!   "Return a list of the elements of RING."
!   (mapcar #'identity (cddr ring)))
  
  ;;; provide ourself:
  
--- 155,163 ----
        (aref vec (ring-index index hd ln (length vec))))))
  
  (defun ring-elements (ring)
!   "Return a list of the elements of RING, in no particular order."
!   (let ((lst (delq nil (mapcar #'identity (cddr ring)))))
!     (nconc lst (make-list (- (ring-length ring) (length lst)) nil))))
  
  ;;; provide ourself:
  
============================================================