# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1119576014 0
# Node ID fe0423976eb084d5417be333e05dcd945bc4ed05
# Parent  1d86d5c00a503acf87809a3a983de7f095e87739
(ring-elements): Make it return a list of the elements of RING in
order, and without bogus nil elements.

diff -r 1d86d5c00a50 -r fe0423976eb0 lisp/emacs-lisp/ring.el
--- a/lisp/emacs-lisp/ring.el	Thu Jun 23 21:49:52 2005 +0000
+++ b/lisp/emacs-lisp/ring.el	Fri Jun 24 01:20:14 2005 +0000
@@ -155,8 +155,13 @@
       (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)))
+  "Return a list of the elements of RING, in order, newest first."
+  (let ((start (car ring))
+	(size (ring-size ring))
+	(vect (cddr ring))
+	lst)
+    (dotimes (var (cadr ring) lst)
+      (push (aref vect (mod (+ start var) size)) lst))))
 
 ;;; provide ourself: