Mercurial > emacs
changeset 25468:637af9b4fdbb
Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 Aug 1999 23:58:18 +0000 |
| parents | cf992000b9c6 |
| children | 6762c8a75fd7 |
| files | lisp/emacs-lisp/ring.el |
| diffstat | 1 files changed, 4 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/ring.el Mon Aug 30 23:57:22 1999 +0000 +++ b/lisp/emacs-lisp/ring.el Mon Aug 30 23:58:18 1999 +0000 @@ -42,16 +42,6 @@ ;; These functions are used by the input history mechanism, but they can ;; be used for other purposes as well. -;;; Change Log: - -;; Sun Aug 22 12:58:54 1999 Kevin Blake <kblake@ticnet.com> -;; * Added the `ring-size' and `ring-copy' functions. Added documentation -to -;; the `ring-empty-p' and `ring-index' functions. Enhanced the -documentation -;; of several functions. Added comments to the layout of this module to -;; make things more obvious. - ;;; Code: ;;; User Functions: @@ -112,10 +102,9 @@ (defun ring-copy (ring) "Returns a copy of RING." - (let* - ((vec (cdr (cdr ring))) - (hd (car ring)) - (ln (car (cdr ring)))) + (let* ((vec (cdr (cdr ring))) + (hd (car ring)) + (ln (car (cdr ring)))) (cons hd (cons ln (copy-sequence vec))))) (defun ring-insert (ring item) @@ -158,7 +147,7 @@ "Returns RING's INDEX element. INDEX = 0 is the most recently inserted; higher indices correspond to older elements. -INDEX need not be <= the ring length, the appropriate modulo operation +INDEX need not be <= the ring length; the appropriate modulo operation will be performed." (if (ring-empty-p ring) (error "Accessing an empty ring")