From: Sergey Vinokurov <serg.foo@gmail.com>
Date: Fri, 21 Jan 2022 11:42:22 +0000 (+0100)
Subject: Fix memory-report-object-size to initialize memory-report--type-size
X-Git-Tag: emacs-28.0.92~89
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbc9b121e0624bd20c2aaddeeb2cd6be14294465;p=emacs.git

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.
---

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))