# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 936057498 0
# Node ID 637af9b4fdbbc48da7a21310f48b80f1ce15e330
# Parent  cf992000b9c6d5a91d478e13192411b9a15c2fc9
Fix previous change.

diff -r cf992000b9c6 -r 637af9b4fdbb lisp/emacs-lisp/ring.el
--- 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")