From 6a475c995540c653ab9964d864cf088ae66656c6 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Sun, 21 May 2000 17:29:50 +0000
Subject: [PATCH] (ring-elements): New function.

---
 lisp/emacs-lisp/ring.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el
index 27100d84c77..e4cede28bd2 100644
--- a/lisp/emacs-lisp/ring.el
+++ b/lisp/emacs-lisp/ring.el
@@ -154,6 +154,10 @@ will be performed."
     (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)
-- 
2.39.5