diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-05 08:40:52 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-05 08:40:58 +0200 |
| commit | e498e5be207ce53028af3f820c123def6f6968a8 (patch) | |
| tree | 706bbc00b06838579e912fb42c43cc953ed803d2 /lisp/emacs-lisp/memory-report.el | |
| parent | 66409422214a0a90e1d2a12ef2c4ebf86f2c01a9 (diff) | |
| download | emacs-e498e5be207ce53028af3f820c123def6f6968a8.tar.gz emacs-e498e5be207ce53028af3f820c123def6f6968a8.tar.bz2 emacs-e498e5be207ce53028af3f820c123def6f6968a8.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp/memory-report.el')
| -rw-r--r-- | lisp/emacs-lisp/memory-report.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el index 3166d33e029..cda2dee6cbc 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) |