[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ring.el

[Luc Teirlinck]

Index: emacs/lisp/emacs-lisp/ring.el
diff -c emacs/lisp/emacs-lisp/ring.el:1.18 emacs/lisp/emacs-lisp/ring.el:1.19
*** emacs/lisp/emacs-lisp/ring.el:1.18  Mon Sep  1 15:45:22 2003
--- emacs/lisp/emacs-lisp/ring.el       Fri Jun 24 01:20:14 2005
***************
*** 155,162 ****
        (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)))
  
  ;;; provide ourself:
  
--- 155,167 ----
        (aref vec (ring-index index hd ln (length vec))))))
  
  (defun ring-elements (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: