# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 958930190 0
# Node ID 661c97b907a86f5bc5cec6ce9c27dcb6022cf352
# Parent  25099b559af90716416296d6129bc65c9c98d7ba
(ring-elements): New function.

diff -r 25099b559af9 -r 661c97b907a8 lisp/emacs-lisp/ring.el
--- a/lisp/emacs-lisp/ring.el	Sun May 21 17:26:47 2000 +0000
+++ b/lisp/emacs-lisp/ring.el	Sun May 21 17:29:50 2000 +0000
@@ -154,6 +154,10 @@
     (let* ((hd (car ring))  (ln (car (cdr ring)))  (vec (cdr (cdr ring))))
       (aref vec (ring-index index hd ln (length vec))))))
 
+(defun ring-elements (ring)
+  "Return a list of the lements of RING."
+  (mapcar #'identity (cddr ring)))
+
 ;;; provide ourself:
 
 (provide 'ring)