[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e498e5b: Make `memory-report-object-size' work standalone
From: |
Lars Ingebrigtsen |
Subject: |
master e498e5b: Make `memory-report-object-size' work standalone |
Date: |
Tue, 5 Oct 2021 02:41:04 -0400 (EDT) |
branch: master
commit e498e5be207ce53028af3f820c123def6f6968a8
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make `memory-report-object-size' work standalone
* lisp/emacs-lisp/memory-report.el (memory-report--type-size):
Default to nil so that the test in `memory-report-object-size' works.
(memory-report--set-size): Initialize
memory-report-object-size.
---
lisp/emacs-lisp/memory-report.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index 3166d33..cda2dee 100644
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -31,7 +31,7 @@
(require 'subr-x)
(require 'cl-lib)
-(defvar memory-report--type-size (make-hash-table))
+(defvar memory-report--type-size nil)
;;;###autoload
(defun memory-report ()
@@ -84,6 +84,7 @@ by counted more than once."
(gethash 'object memory-report--type-size)))
(defun memory-report--set-size (elems)
+ (setq memory-report--type-size (make-hash-table))
(setf (gethash 'string memory-report--type-size)
(cadr (assq 'strings elems)))
(setf (gethash 'cons memory-report--type-size)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e498e5b: Make `memory-report-object-size' work standalone,
Lars Ingebrigtsen <=