]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix memory-report-object-size to initialize memory-report--type-size
authorSergey Vinokurov <serg.foo@gmail.com>
Fri, 21 Jan 2022 11:42:22 +0000 (12:42 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Fri, 21 Jan 2022 11:43:19 +0000 (12:43 +0100)
* lisp/emacs-lisp/memory-report.el (memory-report-object-size):
Allow using function directly (bug#53310).

Do not merge to master.

lisp/emacs-lisp/memory-report.el

index eae0e36234b6bfbc731f7169e12466535013c4c3..d9c0f02820e1c0aa626150fd5e30d825ead10f71 100644 (file)
@@ -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))