Maybe I am trying to document a bug here. Maybe it is better not to
add these two sentences and instead make `ring-elements' do what the
first sentence above, and its docstring, say it does.
I think so.
! (nconc lst (make-list (- (ring-length ring) (length lst)) nil))))
What's the purpose of this? It seems only to reintroduce the same bug
that the delq fixes.
(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)))
Isn't that quadratically slow? And it doesn't fix the bug.
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
