procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ring-elements): Make it return a list of the elements of RING in

Browse source 
order, and without bogus nil elements.
This commit is contained in:
Luc Teirlinck 2005-06-24 01:20:14 +00:00
parent 528b6abcb4
commit 7f72ddd58d
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/ring.el
View file

@ -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: