From: Dave Love <fx@gnu.org>
Date: Sun, 21 May 2000 17:29:50 +0000 (+0000)
Subject: (ring-elements): New function.
X-Git-Tag: emacs-pretest-21.0.90~3835
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a475c995540c653ab9964d864cf088ae66656c6;p=emacs.git

(ring-elements): New function.
---

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)