diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-06-24 01:20:14 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-06-24 01:20:14 +0000 |
| commit | 7f72ddd58d4ea61fbbb247f4789aff36adecff58 (patch) | |
| tree | 5089f83b97bfb1787ec9368359d8c8e29a71f787 /lisp/emacs-lisp | |
| parent | 528b6abcb4703f1825d8e323152f8b93b4bb9ecc (diff) | |
| download | emacs-7f72ddd58d4ea61fbbb247f4789aff36adecff58.tar.gz emacs-7f72ddd58d4ea61fbbb247f4789aff36adecff58.tar.bz2 emacs-7f72ddd58d4ea61fbbb247f4789aff36adecff58.zip | |
(ring-elements): Make it return a list of the elements of RING in
order, and without bogus nil elements.
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: |