Actually, if we have to do all of that to get the correct return value, we could quite as well use the following function, which does get the order correct:
(defun ring-elements (ring)
"Return a list of the elements of RING in order, newest first."
(let (lst)
(dotimes (var (ring-length ring))
(push (ring-ref ring var) lst))
(nreverse lst)))
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
