[elpa] externals/memory-usage 2f446d8 3/9: Fix bug in `memory-usage' package.

[Stefan Monnier]

branch: externals/memory-usage
commit 2f446d8d42882c89d96aacbfdd3052d5bdcbe91f
Author: Chong Yidong <cyd@gnu.org>
Commit: Chong Yidong <cyd@gnu.org>

    Fix bug in `memory-usage' package.
    The 4th slot of `garbage-collect' is a number not a cons.
---
 memory-usage.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/memory-usage.el b/memory-usage.el
index 71644af..b8c5401 100644
--- a/memory-usage.el
+++ b/memory-usage.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; This package provide the command `memory-usage', which lists all
+;; This package provides the command `memory-usage', which lists all
 ;; buffers and how much memory they use.
 
 ;;; Code:
@@ -81,9 +81,7 @@
     (insert (format "\t%d+%d bytes in intervals\n" (car intervals) (cdr 
intervals)))
     (insert (format "\t%d+%d bytes in string headers\n" (car strings) (cdr 
strings)))
     (insert (format "\t%d bytes of string chars\n" chars))
-    (insert (format "\t%d bytes of vector headers\n" (* 2 
memory-usage-word-size (car vectors))))
-    (insert (format "\t%d bytes of vector slots\n" (* memory-usage-word-size 
(cdr vectors))))
-
+    (insert (format "\t%d bytes of vector slots\n" chars))
     (let ((live (+ (car conses)
                    (car symbols)
                    (car markers)
@@ -91,8 +89,7 @@
                    (car intervals)
                    (car strings)
                    chars
-                   (* 2 memory-usage-word-size (car vectors))
-                   (* memory-usage-word-size (cdr vectors))))
+                  vectors))
           (dead (+ (cdr conses)
                    (cdr symbols)
                    (cdr markers)