From 889321507ef024fb12698b5fd9fecb8ef2d2243c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 May 1991 04:52:20 +0000
Subject: [PATCH] Eliminate M-x debug-show-rings.

---
 v7/src/edwin/debuge.scm | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index f71b7d73c..da8b1c763 100644
--- a/v7/src/edwin/debuge.scm
+++ b/v7/src/edwin/debuge.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/debuge.scm,v 1.41 1991/04/21 00:49:31 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/debuge.scm,v 1.42 1991/05/10 04:52:20 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -82,15 +82,6 @@
 		      (set-buffer-truename! buffer truename)
 		      (buffer-not-modified! buffer)))))))))
 
-(define-command debug-show-rings
-  "Show the number of items in the mark and kill rings."
-  ()
-  (lambda ()
-    (message "Mark Ring: "
-	     (write-to-string (ring-size (buffer-mark-ring (current-buffer))))
-	     "; Kill Ring: "
-	     (write-to-string (ring-size (current-kill-ring))))))
-
 (define-command debug-count-marks
   "Show the number of in-use and GC'ed marks for the current buffer."
   ()
-- 
2.25.1