# HG changeset patch
# User crestani
# Date 1130902012 0
# Node ID 876730d84b73183fa58f826916b64b65d35bb504
# Parent  cf9ebb038c1c65cbf43a6de6745960818ec75061
[xemacs-hg @ 2005-11-02 03:26:51 by crestani]
2005-11-02  Marcus Crestani  <crestani@xemacs.org>

	* diagnose.el: Rename `show-lrecord-stats' to
	`show-object-memory-usage-stats', to keep in sync with the C
	sources.

diff -r cf9ebb038c1c -r 876730d84b73 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Nov 01 22:50:59 2005 +0000
+++ b/lisp/ChangeLog	Wed Nov 02 03:26:52 2005 +0000
@@ -1,3 +1,9 @@
+2005-11-02  Marcus Crestani  <crestani@xemacs.org>
+
+	* diagnose.el: Rename `show-lrecord-stats' to
+	`show-object-memory-usage-stats', to keep in sync with the C
+	sources.
+
 2005-10-26  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* XEmacs 21.5.23 "daikon" is released.
diff -r cf9ebb038c1c -r 876730d84b73 lisp/diagnose.el
--- a/lisp/diagnose.el	Tue Nov 01 22:50:59 2005 +0000
+++ b/lisp/diagnose.el	Wed Nov 02 03:26:52 2005 +0000
@@ -166,12 +166,12 @@
 	grandtotal))))
 
 
-(defun show-lrecord-stats ()
-  "Show statistics about lrecord usage in XEmacs."
+(defun show-object-memory-usage-stats ()
+  "Show statistics about object memeory usage in XEmacs."
   (interactive)
   (garbage-collect)
-  (let ((buffer "*lrecord statistics*")
-	(plist (lrecord-stats))
+  (let ((buffer "*object memory usage statistics*")
+	(plist (object-memory-usage-stats))
 	(fmt "%-30s%10s%10s\n")
 	(grandtotal 0)
 	begin)
@@ -233,7 +233,7 @@
       (save-excursion
 	(set-buffer buffer)
 	(setq begin (point))
-	(princ "Allocated with new allocator:\n")
+	(princ "Allocated with lisp allocator:\n")
 	(show-stats "\\(.*\\)-storage$")
 	(princ "\n\n")
 	(setq begin (point))