From 7f72ddd58d4ea61fbbb247f4789aff36adecff58 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Fri, 24 Jun 2005 01:20:14 +0000 Subject: [PATCH] (ring-elements): Make it return a list of the elements of RING in order, and without bogus nil elements. --- lisp/emacs-lisp/ring.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el index fce07953ba..6e0f9cd70b 100644 --- a/lisp/emacs-lisp/ring.el +++ b/lisp/emacs-lisp/ring.el @@ -155,8 +155,13 @@ will be performed." (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: -- 2.20.1