emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/memory-usage 0c25f6f 4/9: * memory-usage.el (memory-usa


From: Stefan Monnier
Subject: [elpa] externals/memory-usage 0c25f6f 4/9: * memory-usage.el (memory-usage): Fix vector size display.
Date: Tue, 1 Dec 2020 16:21:13 -0500 (EST)

branch: externals/memory-usage
commit 0c25f6f51a9812eeaa813e2698adedb0be1b684c
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * memory-usage.el (memory-usage): Fix vector size display.
---
 memory-usage.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/memory-usage.el b/memory-usage.el
index b8c5401..7786035 100644
--- a/memory-usage.el
+++ b/memory-usage.el
@@ -1,6 +1,6 @@
 ;;; memory-usage.el --- Analyze the memory usage of Emacs in various ways
 
-;; Copyright (C) 2002, 2004  Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2004, 2012  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: maint
@@ -78,10 +78,12 @@
     (insert (format "\t%d+%d bytes in symbols\n" (car symbols) (cdr symbols)))
     (insert (format "\t%d+%d bytes in markers\n" (car markers) (cdr markers)))
     (insert (format "\t%d+%d bytes in floats\n" (car floats) (cdr floats)))
-    (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+%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 slots\n" chars))
+    (insert (format "\t%d bytes of vector slots\n" vectors))
     (let ((live (+ (car conses)
                    (car symbols)
                    (car markers)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]