diff options
author | Sergey Vinokurov <serg.foo@gmail.com> | 2022-01-21 12:42:22 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-21 12:43:19 +0100 |
commit | fbc9b121e0624bd20c2aaddeeb2cd6be14294465 (patch) | |
tree | 2b4b388465acab270cc6e4e064095968992efba8 /lisp/emacs-lisp | |
parent | f08dfa9b532648457590262c1afa9729e87c6bb1 (diff) | |
download | emacs-fbc9b121e0624bd20c2aaddeeb2cd6be14294465.tar.gz emacs-fbc9b121e0624bd20c2aaddeeb2cd6be14294465.tar.bz2 emacs-fbc9b121e0624bd20c2aaddeeb2cd6be14294465.zip |
Fix memory-report-object-size to initialize memory-report--type-size
* lisp/emacs-lisp/memory-report.el (memory-report-object-size):
Allow using function directly (bug#53310).
Do not merge to master.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/memory-report.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el index eae0e36234b..d9c0f02820e 100644 --- a/lisp/emacs-lisp/memory-report.el +++ b/lisp/emacs-lisp/memory-report.el @@ -75,7 +75,7 @@ by counted more than once." (defun memory-report-object-size (object) "Return the size of OBJECT in bytes." - (unless memory-report--type-size + (when (zerop (hash-table-count memory-report--type-size)) (memory-report--garbage-collect)) (memory-report--object-size (make-hash-table :test #'eq) object)) |