/[emacs]/emacs/lisp/emacs-lisp/ring.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/ring.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by miles, Mon Sep 1 15:45:22 2003 UTC revision 1.19 by teirllm, Fri Jun 24 01:20:14 2005 UTC
# Line 155  will be performed." Line 155  will be performed."
155        (aref vec (ring-index index hd ln (length vec))))))        (aref vec (ring-index index hd ln (length vec))))))
156    
157  (defun ring-elements (ring)  (defun ring-elements (ring)
158    "Return a list of the elements of RING."    "Return a list of the elements of RING, in order, newest first."
159    (mapcar #'identity (cddr ring)))    (let ((start (car ring))
160            (size (ring-size ring))
161            (vect (cddr ring))
162            lst)
163        (dotimes (var (cadr ring) lst)
164          (push (aref vect (mod (+ start var) size)) lst))))
165    
166  ;;; provide ourself:  ;;; provide ourself:
167    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26