*** empty log message ***

1 files changed, 22 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el
index 95b993001fa..4b134801984 100644
--- a/lisp/emacs-lisp/ring.el
+++ b/lisp/emacs-lisp/ring.el
@@ -1,5 +1,23 @@
-;;; Ring Code
-;;;============================================================================
+;;; ring.el --- handle rings of marks
+
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
 ;;; This code defines a ring data structure. A ring is a 
 ;;;     (hd-index tl-index . vector) 
 ;;; list. You can insert to, remove from, and rotate a ring. When the ring
@@ -99,3 +117,5 @@ Answer is guaranteed to be non-negative, and less than m."
 	       (vec-index (comint-mod (+ index hd) 
 				      (length vec))))
 	  (aref vec vec-index)))))
+
+;;; ring.el ends here