From b27c699564ae0510a626b742dc33181c8b8430ff Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 30 Aug 1999 23:58:18 +0000 Subject: [PATCH] Fix previous change. --- lisp/emacs-lisp/ring.el | 19 ++++--------------- 1 file changed, 4 insertions(+), 15 deletions(-) diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el index f871526a296..27100d84c77 100644 --- a/lisp/emacs-lisp/ring.el +++ b/lisp/emacs-lisp/ring.el @@ -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 -;; * 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 @@ VECLEN is the size of the vector in the ring." (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 @@ numeric, remove the element indexed." "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") -- 2.39.5