User: crestani Date: 05/11/02 04:26:54 Modified: xemacs/lisp ChangeLog diagnose.el Log: 2005-11-02 Marcus Crestani <crestani(a)xemacs.org&gt; * diagnose.el: Rename `show-lrecord-stats' to `show-object-memory-usage-stats', to keep in sync with the C sources. Revision Changes Path 1.691 +6 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.690 retrieving revision 1.691 diff -u -p -r1.690 -r1.691 --- ChangeLog 2005/10/26 15:13:47 1.690 +++ ChangeLog 2005/11/02 03:26:51 1.691 ＠＠ -1,3 +1,9 ＠＠ +2005-11-02 Marcus Crestani <crestani(a)xemacs.org&gt; + + * 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(a)xemacs.org&gt; * XEmacs 21.5.23 "daikon" is released. 1.5 +5 -5 XEmacs/xemacs/lisp/diagnose.el Index: diagnose.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/diagnose.el,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- diagnose.el 2005/05/15 16:37:56 1.4 +++ diagnose.el 2005/11/02 03:26:52 1.5 ＠＠ -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))