diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ring.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el index fce07953ba9..6e0f9cd70b4 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: |